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AaJaa 



i&£ £>li jjjkj t « jj~*j£l\ » VJ^V 1 V" 1 ^ 1 °^' '^^° JJ^> f 

u[ ol& i L$i^j ijf_,Jl oUJ ji^kj JjjSCL JjaJUJI Lb c oljOallj *Uo-Vl 

. <Wi*ai«jdl oUJJi jf t i^a. ^ Cx pip j^xi ^>-j!-« IJLLu Jif jf ^Sl oliJ O^Jp 

^-^j- 11 JJl— II j-^ U^va^ai oUJUl ja ,j» (ALGOL) Jj_kJl :}Li. 
i-JJl JJLil j-^ i^^J ,iJj ^ (FORTRAN) OL/jj-s t oL-jjIjjLlj 
£J LISP iijbVlj ijUa^l JSLJlI J^ i**aic* oJ ^j J^ ^LJIj 
**J t/'J (general purpose simulation system) GPSS t^j^aJl iA-l*£ i^a^^u 
o^U-l J.e. _u^j ^J| jjLII jl ^Ij-iJl glkJl oli JiL~Ll j>o i^A^ 
C* U| °J* cr— - L. j\ ^.I^JI oLS"^ j^Ul JjU- JOJj . . . iijUJl 
^ 0*-^f J J*JI ^k^SJi^ oUJ *Lq jf j^sUJ ^^-(softow are house) 
f-^JL L^i^u iils" PL/1 Sil o> Jt Ol/j^j JLJL SJ ljj> of Olfi ^\j 
blj (PASCAL) JLC-L iAK JLxu-Vl fcjucu oUJ o^b ^ ^ t Sjl^lj 
' ijljVlj i-Ul JvUxUlI oL-U-j^I J* iU-^l ^k-J oUJUl aJL» i (ADA) 
^U^-Vl jLUl J i^ava^l oUJUl £i iljUiL cjL-*.j .^jL- t Li. J& -^j 

. iiUl oJU *j Jo.*.:...,; ^jj| 



jJ\JV» 



«JUl J-l* J\ c Ji>dl iU^ : jc^Ul odL^y cs iJJb ^j t ^-UJUll 
JjU- o*i 1-iJ . if^b i^U fc] ik-l^ JJ.| ^L^» j\ jb^cJl iU^j t (Analyse) 



y.i.i'. i.. '.rudi.^.Li.iu ai.u i. i..ij i i.i i .i .iii .■j.j i. Mi: 



5 M 

i Oi^Uilj uvrf-jil iJUij i^ jiLjJ 4JLJI oIa la..„>J iJU^JUll Ji>- J j^JL-UJl 

4^Jl JUx^L ^Jj ^j j^jt tiJljJL; A^Jlj 5jJL«dl if^Jl Oj^Ji L*. ^ 

y± Le t u^ f Lil Jl JJ-I ^ ik*^ dLLl .k_j J* ^a ^)| uLuMl 

riJ jlrt- ^"1 i^kdlj i^JJl tlk^VL jJaxllj £.UjJl J^p i>w> jLiAl iJU* 



. (Logic error) iJikJ.1 jf (Syntax error) iydJl *lla^Vl 
oUJJl ,y ^*j t (PASCAL) JISL.L iiJ t v USJl la* J Uju^I jtfjj 

. idJbi ijbl ioL^il 1 kyJ>Lj 
: JbJl iaki.il iL*\ y SlLil j*. i-L*^ of JlS^fLj 





1 


A 


JySS 




/ 








^ 


• j^ -> 
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9UU 
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: pjlyUl i*UJ v-L-Vl &j£l\ J>.|JJ 
3JLU1I : iJUJia^ll.^ 

_ * 

. jl J IJLioj 

^sbJl ^I^J-i : *ii\ii\ iUjll _ ^ 

• fijjJ' <> j' i-^ <> ijiLAl gfl^Jl <*U» 
J 1 ( kj*JJ «*■>-** v^ljj ) ^-^1^ J* t^ai i^U oLJu; ikw-l^ U-Uil ^ 
: ^Uti ifttf Jp ^^4 i.^U* _>t (object) £jJ>y JS . «iJb£ oUjLw Jp 



»«J .W 



t^J - 



e> 



f-j-^ijll ~v\ y>j : (identificator) i_»yJ.I _ 
J£l . ^.l^Jl Jj fjjI^U J J^J.1 

-UL ^J| ^jjJLl iOsft t ( t yp e ) gyj| _ 

jji 4ik£ icjAjt ^j ; (value) i»-Ji)l _ 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



JjVl J-^uJl 



oU)jl>l 



: JUl JSjUI Jp jLjJUll jLil ^ 
piidl ^- oLUlI + pAi Jl <- aJQi 

. . . «. ^^JjjX^ i ijr^Wj <■ ^^-^ ' lAj=* C^» ^ J 5 ' — * H^y *UaiJl 
^y i-j^Li jf SjjJa^ jjp iiix£ J^I_j*j jib" l^£ JLidl SJbJLi ^ JiLil oJl* . «Jl 

J 4-Ilj^Jl _,f « a JUJl » git U. J*l^uj » <..,,U| J-ljJli jjtSj |jj i jLJ^I JJ 

' J^ J^.j£_ £^ LL JSUL* <^l_^ t JpL^JI Ja*. J J.LJI L.f . ^jjJ-l 
^ «>• J*' L*-^j (real time) . . . j>ji J*AJ| ciJl. jib ^Lj t ^Lo 
*4*-ljd ijbVl JJ^- J J.UII U . . i^jJL. jUJl jf 5^ jjJl J^I^JL jib ^11 
JiVl ^ JiLil ol* i £ll . . . y L^ t ^^k* t ^USI ^ll, U Jfl-y JSLL, 
£lj>-lj JUil oLUp ^JJaXT Lp^Jj , 4, jfcj jLJ^i jj ^ SjJ ic l^V » LUbu' 

. ^Jl ... lj~S y_y£ oLl£.l Jl AJ-j SJiowy Jj^ 

J 5 " £jU> £• J»l>3 iiLat oUJ kj\j.JA\ J jjJUUJlj jj^UJl JU^I JiiJj 
A_al» b> -^ t ^jidl J* Jj-^J-lj itjJi jj^ j,j» d&j i Ujua^j aL^ 
*-*\>- oLiJj ( . . . JyJl t oljJjy ) 4wiL,jJl pJJL Jur^i. oUJ Oj$U 
«j_* Ojjk, (...LISP) ^j-^Jl U-Uc i^ UJ, t ( . , . Jjyj ) JjIjVL 

o*y^i j>j ^j . 4-jj-y j^ji ^ j>-f -^ dUi j^ ... ift^ji £l> ^ 
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ajjj^- if^D iih* oUJ ^jf-j j»jJij jj^ju'UaJl *li t iv>wL. jbt~»fj_j t iaJliU 

01 ol£i i-JU^U.1 J-JL-P jJUjcJ.1 oL»-1> « >c^: c^>« Li. ^jiJl j^JaJj 
C t LISP i bl i JISL.L; ^j>-\ o^l»j i JyJf t Jj>j5 t oljJjji oUUl CjjjlaZ 
i-ibU.1 ^Jbj^s^\ g-*\j-> jj_*JUaJl ^rf^-P SJkjJLJLl iwaJLj oUJUl «_»j . . . 
i5_j_^J.I oli ojj^kil oUUl -^ wiU^Jl is^ piJ ,jJl oli^^l jf (Compiler) 
(object JLidJ iLUll iiJLJI jl JUVl iiJ Jl ( . . JISL-L t J^ t ol^'jji ) JUJI 
<^>U- t (interpretator) cj\j^~a» if ^Jl ^j.j-~J OjjuLoJI ^^ LS" t program) 

-Xju *_»Jju jl 5_jli>. eJa^ dilij OjJlL* oJLjlJj i 4JMI iJ J[ p^U^I 4^-jXj fjA) 

Akj^ll (Key bord) ^^All i-jJ ik~- 1^ l^ JS jUi| JL^ (instruction) i»JL»; 
. jljjw^l jl .w^-U-li iJUadlj (terminal) aJ^ 1 sb '^ 

^-•IjJl jf £*>Lll -^ »Jj Jl iiU?} t iijjj S:>Jl£ aJL~» JJ- JL_o~»Vlj Jrr^^ 
J~>C-Jil ^JU" i-_,JaJ.I iiLll J*- ^'^ I^LJU; JU; J.^tIIj JU^^AI SjaU-I 

i*^» L-l 1 l^_i»- i_jjUa]il aJLII if jj J -j*5J jUJVl *u-f*i 1 I J&L* . (progiciel) 

i±J^C j pjj l-i-Aj t J. a . ^ J.1 JJ -jjs f-j-^j>jil pwU^I JLiJ ijU-^l J r <a;> *~' *^' 

■jji Ot-ioj L&.\ Jl ^"Ij^I JUo| iL-^ ^jAj t Jj^l 4JU-J1I : i^.L»f J^-l^ 
(compiler) oj-^ll ik-.l_>j t^j; iJWlj t *J o^^lt (syntax error) iy«Ul *Ua^l 
£JL» *k~. \y oLLm ^ -_yij (Machine language) i£Li JJ -j* i*^i» iiJ Jl 
i-JL ( jvlijJl i^jJ Sj-iL. j-lill JLjc-I ^JU- JU- J ) (link editor) ikjjVl 
(High level language) H.L.L. JUl ^ji-ll oli oUJLJL ij^ll ^Ij-JJ 

iJU.1 ju «LII i]L» t i^>- -^ . Lw» }U* if^l -^ OtA*^ 0"^«U ilLAj 

Ia i-^-L of •_/>!£ ^1 oihiJ.1 JlSLiVl (. t5_H*-f if>- -^j t ^Uj-Jlj i^j^^kil 

UuJ o>; ( £^il jf jLil ) jL^LJ.1 .L.f ^>il ^L^JLi JjVl ^yJl 
. tails' j^j ISL-U^o ^ 1 ^>\r^ ^l* ^Jj^ ^ ' ( ■SrfjjJl iiillj !^i« ) ^*^> ajJj 

. aJL-11 J^ J i^Uall ^JliJl tulj^r ^04 o^y^ 1 '■** 
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: oil >— ^r ' 7>*^^r" <e-Lm» <Ji aJlJ.1 ^y 1 - y ^^j 

jl (algorithme) pjlyLl a_pL^> Jl ^iy" a_JL*jJI ^JLa . JJ-'j ^JJLs-sxJl S-L^p 

. (organigramme) jLJl JL-Jl 

<_$AJl jUjixil j»LliJl 'yi iJj-^ 4*J ik-iljj oJbJbCj aXpL/j jl JJ-I IJLa jt- ?-UaiVl - 
. (programatic) a^^JI j? Jb ylcJl iJL*p ^ sJlaj t *JLp J*j«J 

U j^ oUjjIyLi j| j^aii jf pjiyj-i ^ j| j^jii jU : jULj li£* 

L g j >..^< J 4_aU- Lf^ivJj i 4j j_PxJl «L;P-LJl /y Aly«\J <U^-rf i—is^JJ A-JJ <Ua~ulj_| 

. ij^-ij^Jl 4>-yJl CjUaJa£ v ->- 

-A* j_j5o LiV t tSy*-! ijJ (_$[ if^JU 4xJ j^ jj-*Jl y *)■>$-—; 7"-*-j CH^' l-i* 

. U>JUjSip iJU^v -yi aJLJlI JJ^- aJLj^ LJLvii 

jjJl i r )jj_ r ^aJl oLJL»jJl <_jL^>j SJL*fr i (algorithme) fjjl.p- ^M \J£j* 

^uti jl A^j jjp J-*a>o i (data) oUa** ^-^ Jl>-i^J *-* <J^>- -y c l^Ja^-l .jjj 



S^JLst 



j^ljl J_ic t (semantic) iJNi *iij OMj v-UjJ t jJjj ^yl^- (syntax) j>«i ila— Ijj 

. LftJLio ji.>hT,.»ij <JVl Lfli ^a" oU-JLxjj 

• " u^.j-'l-'l Oj^^y Js? 1 " /"■^"■ " ■"^ t 4^** iiL»>» i*>-_5 ^ijiiJj t \J&J> 

(iU- jl .^jlikj J-JLj jf (algorithme) njj*- ,_/-Jb i t^Ij J^>- jf- «±^>JI 

. aJLII JJU^ Hj^ja ^jg iU-J.1 Jl* . 7w»lj jL» 

. (codefication) fjjIyU jl^ ^ jg iJUJl <L>-^I 4 jl» . ^j^jS^t 
11 
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aJ Oj5L JSLl, ^IjJI JULj {}j\j2-\ li-L^ ^3 ^ iJLtJ^I if^Jl Uf 

i pjlj.J-1 y>j-*- jf ^l^Jl j*y^. tj-L-^l Ojj Jj-JjcJIj jjjkdl %li j^Vl IJL* 

(algorithme representation) a jjl^-l J~i - 1.2 

Jl_*i jl iw^Jyj ^J-^jL-yj »Uaj Jj_^- ,<$■■» I J-^-j-j t— Juul j\ Qi^Lra T...U eJLA (j^-i 

: !** 




^JJj (^ t iLwJ^L organigramme jf jLJl JUJI f"'^ iSj^kil »JLa i-J^wj 

. ijiSJ^II iJJJL Algorithme ,*-NL 
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-(_gl ) «enonces» « ^-o^-^aj »j « oLj » aLJL> JUjclJ ,J* /»_jxj # iJlill ii ^kJl 



(A) 
Var V : INTEGER; 

READV 

IFV<0 THENV<--V 

ECRIRE V 

• vU 

V <- -V : oij >** j- >-»t V jlS lil 

"aJJ.\ oLJI . JI>J1 Jp jUi^l Jii j- 1.3 
: 5JLJI iL>JL jUiVl jJ*' ^1 o^>:,.,ll luj ^ 1 jUl JLJI J 



!>* 



2J-i 



T 



nj»i 
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enonce 1; t 1 ijj 

enonce 2; enonce 3; i 3<jj i 2l^> 



enoncen; t n l^j 

begin (debut) oUKJl jLxu-l ^"jdl j* t i*j*f J oUl ^^iuu ( * r »>d 

. oLJl j^- oljilS jl a1a\5 ( ilfij <>l JO ) end (fin)j 

Start start enonce 1; enonce 2 end enonce 3; ... enonce n end 

. 4jI,a nij ... i 3 k^j iAf 2 i-j t 1 £l»j ilJj ajIju 

: Jwiil J^-io jf 
ilJb 

i 1 t-o ilJb 

i 2 fc-j 

^ 3 iLo 



(ASSIGNMENT, AFFECTATION) ^..,^1 -1.4 

4^J j_y£j Of l VpLc «Uyw **;» ./!;./>■£ ( J*- fjjijj i ^/j../»>»IjI *J> La.;,. -.11 ,J*juI 

: JUlj^l. aJI yjj -» SjLi^l 
^^Ijj^^ju -jp SjLp Ej iJj>^JJ (identificator) «_jjjwyb V ki~?- t E— » V 

: istfU- ( j^wiji oUujiS' ^-Ij^-Vl _ JU^Nl oLL*£- jL^I t jSUii -j* 
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r-l^-Ml jL^>- J! iljs^ll i*J ijtL^pi- ,^*i i ( v <^S\ ) «Ecrire v» jaH\ 

( i~Js.bJ.ll Ak^JiVl Ja>J 5_^>-t i^i J«a:.,J ) : }\i. 

BM1 Jp X fjij 

BM2 Jp Y fjil 

Z<-x + y 

BM3 Jp Z y^l 

(Alternative) ^IcJl _ 1.5 
: Ojpy v^JUdJ- 1.5.1 

j\ kSs- ,J 4-*^Aj t— jJJall Jila_dl ./^^jcJI r—^ji i ijW^ i3L*-Jl i5»^>~-» (J 

iejZSLi j,ajcJU JjVl p-j^ll -Ivjj ' C&rJ** (Losange) jyui JSli Jp JJh>~« 
. (FALSE) Ikil iyJL ^j^lj <■ (TRUE) ^^all 

; 4JUJI ^Jsj-jJI wgj.irt'.'l _u»-l Ljl» ji$L— 1 1 jj^xll ^«jjlfjl-i jvjcjI ,j 

IF condition B THEN STATEMENT 1 ELSE STATEMENT 2 
IF condition B THEN statement 

Si Condition B alors enonce 

: ijyJLjl 

1 U»*JI Oil B JoyJl \i>\ 

IF C THEN begin 

statement 1 
statement 2 
end; 
ELSE begin 

statement 
end 
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f j ji SJUj s_JUJl - 1.5.2 
(FALSE) i JaU »j (TRUE) « iiJb- » *-«J1j O^jj- u^>- ^U^pI j^ Sju 

JjL-Jl (J t oil J-*a>i^. . ( iijjjt* aJU - n ) oL;l£o^/l -^ n sjl* ^ j^ «_Xr>-1_j 



cond 



cond-j 

"T 



cond 



T 



I 



<o 



T 



B 2 - 4AC 



= 



n *ij \»jlS\ -jp SjL^ < — Cond n 

: ^ 



>0 



J I" 



j\ ( ii^» iJLJ-l J ) «in case of» j-«Vl J_.. « . : .■■ • ..■* «. ^jj' jA' -C-r*~" J 

: au cas ou ij-J^iJlj 



in case of 

cond 1: statement 1 
cond 2 : statement 2 

cond n : statement n 



1 4ij : 1 js>j^i 
2 iuj : 2 i^^j. 



ni 



>" 
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iS\ liili n J^yJi dj& Ujup oJLiJ ^yLil JjtiJl j\ iJLojJl ^ n iUl ) 

: ^iu 

- J* ^.jU* J-Ij SjJ 25 ajUI l_-£ 4 S^J 200 ja Jit -uii ^.j^iUl j^l jlS lil 
. _£*_*• JL — IL isoli-l Sj^Lill Jp iiil fjAjf itSj t-Ij>-I i—tJJail 

: JUI ^I^I^JL JJ-I its jSUll ^ 

Var Q , PBRUT, PNET : REAL 

Lire Q 

PBRUT <-Q* 50 

: JUI ^jjl>l^db jj-i its jSUl ,>. . 
Var Q, PBRUT, PNET : REAL 

ReadQ 
PBRUT <-Q* 50 
if PBRUT S= 200 then PNET <- PBRUT 

else PNET <- PBRUT + 25 
write PNET 

JU-VI j-dl _ PBRUT 
. JUJI -^1 _ PNET 

(repetition) jlj&ll - 1.6 

j\ JUiVl ,y <p^«jf _jl ,jijv> J*i xi^j j»_ji of oL?-Sll ^om J i5jjj-^' ,>* 
. (loop) jljSd! iil>- jf ^LJ-1 iai>« ^ Jb L. IJLaj . oLJjLl ■j- j-uJ oULjJI 

• ( J>- ) TO *»U-lj ( lilt ) while : otiU-l . 1.6.1 

: Jbll JSLsJI > olaU-l ..u jl yj 

While condition C do begin 
statements 
end 
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. repeat Begin 
statement 
UNTIL condition c; 



While condition C do begin 

statements 
end 



ilJii J*pI C ijJJl uu» : ^i 

just 






iijb j*pj c i,yji au» 

JUif 

C i^=Jl j?- ( oUJLdl ) JUiVl j^" 
JL-JI Jljdl Jp v_^,bJ ( ( j 3 - ) (jusqu'a ) TO j ( lilt ) tant que oliU-l 

: JfcJl jUl 





*- 


















F 
















v^ condition ^\ 

\ C yS 


F 




enonce 


Mi- 






1 T 


} 


r 








T i *J^o- 




F 


y^ condition ^n^ 




enonce 




.Up 


^v C s' 










*JLJK>- 1 
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While cond do begin 

statements 

end. 

For ttD-l_ 1.6.2 

J£UI Jp \USij (counter) jIjU JUxl-L. oLLjJI JJj iJL^ »iJUi jLc, 

: Jbll 
For I EQ M TON, step p, regeat actions 

. illJl jifj N Jl M ja \&4j*Z Sij>CA je IjVs. _ I 
. I i^iJl l^i jjutf ^11 JjkU _ P 

: Jtdl^^VlLi*^ 

JUiVl j^ t P S>* * N Jl M ja I Jl 

ijLf- P i N 4 M c ( ilJLo ) i>^>w» i3^ii JJLc vJJjw -jp SjLp _ I t L* 

• *>y^-^> -U-2; i^^^-jwUj jl O^jP^tf oVj>uC CjIJj** _jl 4>«~>w* CjIjj /JP 

F = n! jf n U.UI 5J1jJ1 ^^ ^Ul pjlyLl ^1 : ^i. 
VarN.F, I: INTEGER; 
Read N [ N S= ] i 

F^I; 
IF N > THEN FOR 1 EQ1 TON REPEAT 

F«-F* I 
WRITE F; 
END 

: iJUl JlSLiVl Sk-lj, fZ JliL-L iiL FOR ttU-l i^ 

1) Repeat 
i = i+ 1 

c = condition 
UNTIL C 
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:2ji. 

JjJbLl ^lip fj-jf 
VarS:REAL; { IJljs- *1j>^a : S f_j*>J-l j* T^r-axJl } 

Var I : integer; { «w j-JLp : I jc- Tg^-^aiJl } 

VarTAB (50) : REAL 50 ^ L-iJb ^ JJl TAB JjjUM ^ ^^^J| } 

Fori = 1 TO 50 repeat { 50 j^I = 1 ^j^? } 

readA(I) { A(I) \j\ } 

S«-0 

fori =1 TO 50 repeat {^50^1 = 1-^} 

S = S + A(I) { S = S + A(I) g^JLl I-—9-1 } 

writeS {S._^l} 

: JbJl JSCUI J* jju- J15L-L oJL < Jl » jf (Pour ) For <*U-I Jb^SJ jf y^' 



1) repeat 




i = i .01 1 


c = condition 


Until C 




2) for 


i : = 1 TO n DO 




begin 




statements 




end; 


3) While C 


Begin 



end; 



4) repeat 
statements 
until not C 
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j^lj^Jl 



^jlJbwVlj ^JlPWdi JJUd! 



^Ui ^js i*>U _<ul*; JU^,L f _jj|^| 1^ ^ . ^ ^ ^^ ^.i^Jlj 
jl <. ( dUi^p j\ L>^\ J <_j^ls" i^ ^ ^^1 JJ-I Jl j--: ) v-jjlj* 
J ^owsVl iU_/ll -_/>J, . (algorithme, organigramme) jL JL^, ik^ lie' 
Jy *i U»P ^A Ja » i^. oJ Jl A^y jf f jjlyLl j^fc U^ c~J » J5^ if jJl 
. (analyse) J.UJI ^ ^ e ^_, t J^Vl jj-l £b> jj^- ^| <^i f j^i 

ti.>JI j^J LjpL-i ^yi j^yi ^ . f jjljiM ^^ au>| jj_ ^, ^y, 
Sf>JL> i;^UJl <2i>3l -jp jUL^j ^JJ-I jLill ^, ^ » v^lj^U Jill 

. JsUJl J ijlJU^Vl 

^jla^Vl JJUJI.2.1 

. ji-l 514-Jl SjJwJl JSLil ,y oIp^ ^ ^f ju, iU^, , jljb^l j>j aui 

^jLpL^JI JJL^dl _ 2.2 
i5j=-U o* fj ^- ^ ^jlJ^Nl Ji>dl ^ J* ) pi g^Li _,ui 

VjlUl 4JUI J^lj^^ij^ ^Jl Jp j^l <sj^±\ J>U ^ ; ( JpVI 
UsIUj jfU* aUl > Jp j*pL^ l^L ,_i> ^11 J^Vl JJULI j~ UJ . l^L 

• JjVl 
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fj-ij 4JU-I.3 *i^-jA ,Jj i 4v?L>- oljilj iaJLuj iCvflj *jil i (_gj3-l iijiajj 

. (matrix) v jc»_ > A^a* j^s- 
n iJlpj _^a—Vl -j^ n jJU- -j* i— iitzJ A (matrix) iiji^ali ,j^i-J : i)LAl ^^ai 

C = AxB 
: L* i j JS JJj i JS3 J^isall Vj-^ 1 Ja 5 ^" **i^> J* J-^i li^ 1 "k^^ 1 






Cj= SAt'xB 15 ) 



C(I.J)^0 



C (I, J) <^C (I, J) + A (I, K) * B (K, J) 



FOR I =lTON Repeat 

C(I, J) *-C (I, J) + A (I, K) * B (K, J) 
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. J :j*pVi jiy jj& fyc^, 1 1 j^j\ iLJ. 

p J! i cy j j^=* J J£» 

C(I,J)<-0 

N J! 1 J* U*=* K J^J j> 

C (I, J) «_C (I, J) + A (I, K) * B (K, J) 
FOR j = i to P Repeat 
C(I,J)<-0 
For K = 1 TO N repeat 

C(I,J)«-C(I,J) + A(I,K)*B(K,J) 

Var A, B,C Matrix 

Begin 

C(I,J) = 

FORI = 1 TON Repeat 

FOR J = 1T0N Repeat 

FORK =1 TON Repeat 

C(I,J)«-C(I,J) + A(I,K) + B(K,J) 
end 
end 
end 
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vUWIJ-^I 



gSbll 1A£ t jjjUJI c £ljrill t 3k~Jl c*^ljll 



: oil* (jfcj i IALjclJ (jUaj vJt^>-lj 

3.145,1978 : ^t. . :>IopVI_ 

....'CV^'A* : ^L. . oL-Jl_ 

(false, true) F, T ^ . Likll _,f hjJA ^2j| _ 

v^ji t /»l_P JSLto f-wJIjll jl CjL*JI j\ .ilJU'Vl oAa Si-lito *JaI~J L £}j 

. g j^ iASj ^/>lo. iK Jl i»-lpx; jl t JU-1 JL-- jJ-\ r\~*> » : ^Ai* 

: Jill II* J Jb-:* 
: yj-lkll : ^i. . ( UojIjJi ) L^dL-l*. l-jjIUI *LiVl jt ^Ijll **~l» -^ - , 

i jjJl 03J of >~£ : ^ . ^Ij-i* JS-ij *LiVl 8-i* jf /c-^ljil oJift JUjc—I f-Ap- 

. . . £JI 1 ^1 v ^ij 

. If. <*»L>- oUUp 1 *^ljll aJLA \f Py J53 jl ^1 

: Oij *liJVl (type) 9j> ^JO t IJ&* 
. ( «Jl . . iyLi>- 1 Is^s^fi i\ Jlpf i _y5L*i 1 jj ) Ar^' 'A' ^Sr^ - 
. ( ?Jl . . . il^^Vl i-j^ 1 *^- t J-**^ 4 Ojj ) l^ ilaJjll oUUjJI - 
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.\*. *bjj.\ oUUJlj U-L-Vl £lj#l - 3.1 

. integer i^->waJl _ 

. real <, SJLii^-l _ 

. boolean t iJ^Jl jl 4,5l?:ll _ 

. character oU-Jl - 

* * 

(entier, integer) *^>**aJl f-ljjl _ I 

9, 8, 7, 6 , 5, 4, 3, 2, 1, : ^ iU^cuil j^l 
.1,0 ftfjVl ik-ljj ^'LiJl (IkJl J ^bsJl >»>J^ t ^IopVI ^t 

. ( mod j i i**JaJl i t-Jj-rfaJl 

real type ^ySjfcA-l fvjJl - <-j 
* ' f * 

: tfcuoL^I 
1987, 153.50, 0.0012 

. . A—aJI t ^j^aJi t ^->Jl i ^JLl : ^-u . ^l J 
const ; e = 1.71828 ; blanc = " ; N = 3 

. £y*~~ « j** Nl = N + 1 
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■H^Vlj oYpd.1 &■ l-a^JI _ 3.2 
JISL-L i*L JLMu^^aJlj iJL&L-l H^Vlj o"ily>cU ^ uLydi .3.2.1 
Var i : integer ; 
s,y,z:real; 

o| J*- J-Aj integer i»Kj . (identificator) iLj«i-II iJ^iJJ i_jyw •_,* SjLp : i _ 

• zy~* t? <y </* ' *J>*=n 

. l _ s AjiA-t pjJl •_/« l^i J* W 1 * r.-r** ^^j** J' oM_j>^» a^I ^ 5 jLp : x, y, z_ 

SJjJl j? UkLl £\j% c/iyd\ ^ «Jj j»dl . 3.2.2 
jtU (JI>«jJ . (false, true) tla>- t ?w» : Jaii jtuJ SJikll oVjp^il J^U 

. .FALSE. j\ F, .TRUE, jl T : Ukll jIjlpVI ik-l^ jLu-iJl 

i OR t NOT (V i jl ij) iiUl iJakil oLLuJl J-xl-J : oLLjJI 

. AND 

VAR X,Y: Boolean; 
(CAARACTER OR STRING) : oU- £jdl - 3.2.3 

*■ ( ) t^y^ ' (o*^*^ *(-)*k* ) i^»i>- i^L i^p Ji«i ^i oL^Ji <. fiijVi 

.( .". jJU(Sj/M« 

; ^ . ( ' ' ) ijjj^jjf iia^\j> i»-JI i>U : JLySoJl 

'A', '9', '#' 

" : Jl=Jl JSLlll Jp (blanc.space) « *\j B i*-Jl Jl >»ji t oLOjIyU J 
= : LJUl oLL*jJI£ 1 ol. ...ll J*- AjjUi.1 oUL*p Jaii Ja*i«J : oUL**Jl 

. ( «_Ak£ ) /= t ( JaLu ) 

(enumurated type) ivS^Ll fl j Vl - 3.2.3 

. ( w iiJ J jf ) jisLA; iJ J fi_p^i oIa -^ 

VAR JOUR : (Lundi, mardi, mercredi , jeudi) ; : ^l£* 
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0~i i>j>-jA\ ^ j, s^|j Jwi i^b jl -^ t ( (Jt _ ) JOUR iJ^l 

. Jeudi Jl Lundi -^ ^-1 : jvJ^LLi 

^ ;> jj j diJij t ^ -^ ^j j^ ^_ ^, ^j, j ^j, 

type response = (yes. No, may be); 
chifre = '0'.. '9'; 

: JtJl G-r <cJl 



Vardigrchiffre; 



; *cjj,fi-]\ JJLj; 



vardig: '0' ..'9' ; 

• £-M ij^i J £_■>* ^ c^ chiffre t.-^ 1 1-^ ^ v*> v* J 5 J 

expression j*jU=JI _ 3.3 
juUJl *~5J j il—»- _ 3.3. 1 
J* [jis t oV^^j cJjij alopj j, £j,\J.\ U-Ul Uj-1 JtsVl ii>Jl 
oljJjll ) <k_Jl oljljll dDJU J-jcJ . iJikL. jT ^L~>- <j»* ^L* J UU*1 
Op-Ij jJtr ol^> ) iaU-f ol^ ) jb-ij jjL. Jp ( OR <. AND 4 NOT i-Skll 
(two operands i-JU; ol^J> ) jj^t, J_p jl t ( (single operand operator) 
. o%M Z*y&.\ ^lyVl J»-( Jl ^^ (operand) oljjfcll *Jla . ( operator) 

J'^SJ'J* * <• i5^i" (operator) Jyx (object) ^J>\y ^ bj a ,_^iJ 

• '4* • JyS 3 " 0* S J^ ex P- l ex plj <■ 
a, Ya, a 7\i, expl ^exp2 

J£J (priority) ijjjl ^^ ^ t oUU^Jl ^^j ^Ldl -^ ^^1 -j^J 
f lkJ ^ «_JUl j^iJl . L^ ^ oipjll ^j^ j^j iJ_,Vl oJu . ^ 

. ^LJ-I 
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^ jS\ i^Jjti get jJl U**ll lilt JLfc jf iL*j px^ Vj' ^ V^ 





i— AJI y>c 1 JlJ 3 + 5 / 2 iLJ- : !*U 




. 3 « oJlft i»— ill i>*£> **>v pii iiUi Jjyj 5/2 i»L~?-j 




. us^ji <Ji jM ,>• v 1 -^ ^ <• v^j^ 1 £» Lj " * Jb ~ «i - 




3 + 2-5 : iLJ- : ^i." 




. 5 i»«dl ^» ryk: lilli Ji~j 3 + 2 ^a-ljj f JlJ 


SyJjI fife flj^-l 


c >:..-. ^ «i*f J^-Ub JJjJLl oLLjJI ^» fcb jSUll ,y - 




. ^.LJ-l *l_^>-l xp oljJjll 




JISL-L ttL oljSjll - 3.3.2 




. i^JLl oljjjll - f 




c >Jl- 




^JLU 




l^l^oJl # 




ifc-jjl / 




i«^iJl div 




modulo mod 




: ykll oljljil - v 




and, Or, NOT 




. iar*ji oi^jli _ jr 




JaUj = 




^lJ^O 




^< 




o-^> 




t£jL~i_>? Jit < = 




■ l£_A~i J* JC^' ^ = 




h jJrl o^IjJI - j 




x <y tiJJall i*-*Jl * abs (x) 




29 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„l.' 1 1. 1 l .l .lll .'.l., i|. '. II l.l.Tl 



(X-) X gj* 


sqr(x) 


X V^ 


sin (x) 


x *li . .>. 


cos (x) 




arctg (x) 


<-M\ iJljdi 


exp (x) 


x ^jltp 


Into 


x <y ^.^ j-i+i 


sqrt (x) 



x y = ex p(y) * In (x) 

ijJUL-loVlJJl-.A 

succ (x) 

pred (x) 

ard (x) 

chr (x) 

I jl abs (x) ja i^^Jl i^l j| t x & cJlS" lit x •yi ^..-^wJl <*~ii\ = trunc (x) 

. x < cJlS" 

: -to. 
trunc (17.986) = 17 

trunc (-4.3) = -4 

. x Jl ^-y Vl £p>wjJl ^-^ = round (x) 
round (17.61) = 18 

round (17.42)= 17 

. iJtkHoVljdL.) 
j^dl o\S lil false; HjisjA x ^»w £jJl -^ jwdl jl£ lil true JjU: odd (x) 
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odd (x) = abs (x) mod 2 = 1 

J>—Jl AjL^ Jp JX cof 
. f Lr a^\ y> jk-Jl IA+ J* J X, eoln(f) 

. (input file; v^ ! 5lj>Vl 

(Writing) gSl^J I itS_3.4 

4_-jJ_*-l ?ul^jl ,«, ; n.4- JaZ^j L_*tf>l»X< wi»j_«j iol-i-l <U~uU-l iJVl f «-Jij 

l^jj* iJu-p_j i SjJjCjj iibii pJlzJl j_j5i j_j ;5 <_wiU- JUjcl—1) -j53_« . j_l"_ - Ji 

tbUl-,1 v_^. 4 liSU . l^Lt jf l^y u-yUall oU-Jl a _L«jj_^a— Vl »Jl* ,^>**u 

. Xpr JSwj p?l=Jl jj^a^ *plaZ«J ,_■$■ ipUaJl iljr-j— 

: y> it£!l yl 
WRITE (a l i,a2, ...an); 

■ I : ' 

; (an ... a2, a-1) ^_^l 

• ( * ) 4 -*Jj~" , .k' J-*""'^ «j_j-a^ oU-Jl v aJL^u- _ 
• J 11 -*i-^ .A- J* ^li»Jl Jl ^jj ( on line ) « _Ja-Jl J* « ^Vi _ 

: Vi« 
WRITE f the square of 4 = " . 4 x 4): 

the square of 4 = 16 

: y* JISL-L «JJL yV ' -i* <?• J 
WRITE (el. c2 en); 
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begin 

write (el); 
write (e2); 



write (en); 
end. 

. jJ«Jl ^ Jp en ..., e2,el ibJ Jl ^JiytVl IJL* 

^ J-p oVj*dl <_^5 it* ^f t >J| ^l^J J| ^aj, wrfteln Aj^\ 

writeln (el, .. en); 
begin 

write (el); 

write (en); 

writeln 

end 

: iJLJl ^IjVl JjU; 

forx: = 1 ton do 
write (' * '); 
writeln 

:2ji. 

P 
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for i : = 1 to n do begin 
for j : = 1 to p do 

write (' — ");■ 

write (' + ') 

end; 
writeln 

. tjjw iw -^ SjU. e oJtf lil i k*^. JSLi J* e i*J i_^Sj t write (e) i*JLdl _ 
<JU-I J ) i*^, J-^J; Jp iJ^»d.l i«J ^ULIS Juoj i f-l^i n - 1 >^$j t write (e:n); _ 

. ( k*jv> i*— e l$j JJi ^1 

: ^i. 
write (V, 'a':2)— > a a 

. ?u>»vs jJLft 'jP JjLp e _ 

. e iJy>^JiJ t^^^jJl Jii*Jl v^-iSi : write (e) ; _ 
oL^ljiJt -^ i0_^ o^^. t e iJ^iJJ ^^^IJji^Jl ^j^j t write (e:n); _ 

: ih. 
write (12: 2,- 12:0 4,127: 1); 

: hbS Ji &£ i*JUJl oJLft 
12 - 12 27 

■ <J&* > ' ■*•**■ 0* °j^ e - 
write (e:n)y> J\ ) 'tSj>c+ iU-U. JLi^ jOp JSLiu e i»J v_^& t write (e) _ 

o* -^ i3jr~-* ^.r^ iUoli j-U- J£jt Jp e i»J ijUS^ «*u ; write (e: n) _ 

^ ii jL~. j a*jj olj UvUj ( _ 5 2 i i^ iJLp jSLi Jp e <*J ^& <, write (e: n: d) _ 
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olilji HLmj t (mantisse) ^^Jl ,-jA ^ ( ^ ji ^]\ ) ^ j ^S\ ^j^ flij ^, 



oL*— Jl ^ 4jj>»xa *^p SjLp _ e - 
■ ^-P^ 5 - 1 J ^JJJ «r— »■ *LJUl j* x oU~Jl ._j£j t write (e); _ 
jl > 1 e iLUl i_iJj; ^J| JjVl oL-Jl j, n a JuJl ^ * write (e:n);_ 
( i*- n jf ) ^ n ^ ^Ujil jaJ.| iJajd oUl^ill j, f j*J| ^L J_J 

. n > x d\S lit 
■* ;5h' .. i iJj^jji ^-^p ojLf- _ e _ 
. 'false' iUUl jf 'true' iJULJl ^_jSj t write (e); _ 
. oL^Jl ■_,» n -_y. JlaJ-I jv5cj pi; t write (e:n); _ 

Reading oUa*il l*\J J oU jiA\ JL>-il _ 3.5 

Read(al, ...an); 

t (an .. al) \J\ j\ 

: iJUl iiJucJl aJi««I^j JlSwL <*JL (»->-yjj 
Read(al, .. an); 
read In (al .. an); 

J! J** ^J 15^1 -*~ 5 -^l an - al oVj>J.I V-—U-I f>_ Jj^l ^Vl J 
i*-UJl J Vc— t- . Jb-lj jk, J> an ..al oVj»cU ^ J> JjU lil VI JbJl ^L-Jl 
LJUL" U-Uj Jirjj OibU.1 J^l JO Sj^-jII c/^»dl 2UL, t^i ^w.U-1 jli Readln 

. JUljkJlilJb Jl 

JU^I 1 i*l^iJl t Jldl 1 ^LwJl _ 3.5 
J*- Jp J**J of ^£ . i^l; _ JJL-* Jl l+.. Jt ,fc, aJLII JjjU J^ fji Ji 
J 5 J^ Cr" *t»U-l gSfcJl . I^JIjJj Uijjjj l^Jy (.Ik v_ — =~ i^jtJl jsLil a JL* 
i lij ^-Uil ^ . ii^Ul i^ldl JIULI JJ- oLkv^S" J^aJ Oi j£c i^tf *JL- 

. (identificator) 
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Pi = ) 3.14 oliJL Pi il^dl luj y& i Ool^xJl «Ia 4.,.„7 ISI jSCJl -^ 
y>ljl o»-1 <dsu«l_jj I^Ip J^i>«j ^1 fjj'j^*' oUajw i^ — j Lit j\ i ( const 3.14 

Nomination iL««dl _ 3.5.1 
J£ (Jl iJUsj . ^jLJ-I jp- iaiUl i^ill (^Jb^l (identificator) ^h'jA\ ^u 

Oi*^-" iia~*lj_> Ocikii J^-iix-j 4_«~J >_*£ t |Ju>-j d)j5o oi >— ■£ i-iyJ.1 ,»-al _ 

II* Ak-»l_^ ijjdl i^l l$Jl ( _ 5 »^; ^]| ^.j^^ll Jp Jjl,j ; (type) tJ^dl *>_p _ 

. L-vll 

. *~ijA\ j* ttjjviJI X& olj~»ll oJla oJl£ 

(Syntax declaration) 
t identificator is v 

. ^SjA\ ^j, Jp Jo; : t »j^- 

. kJ^I ^1 : v 

: ill,! 
real Pi is 3. 1415926535 

real twpi is 2 * pPi 

boo I test is true 

int nb mois is 12 

: aJ^jlII 

. t -jJjJtl f-jJl *j» ili\jZj> v i»J dj& jl k_^r - 
. 4i*J jrvJJ b£c ^ n_iy»il J*jJL^ -Uj _ 

: Slttf 
typechiffre = '0' .. 'q'; 
var digit : chiffre ; 
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chiffre ^J ^Jb-I digit il^dl j^-b : ^\ 
const pi = 3.14 

■ ^ ^ <}y>A\ jl J* Jjg _ Const _ 

. oui^ijivj^ii^i.pi 

. oliJl jl o^Jil i»J_3.14 

: (sequentiality) JljJl _ 3.5.2 

v-jft i^-Vl u» jlj 4 SI , S2, S3 iyjlill JJUl Jl p-AJ P ilLlI jl J^ij 



Start SI ;S2. S3 END 



-X* 



S = 4 jt . R 2 

V = 4irR-V3 
lr V =S # R/3 iv-Jl ik-l^ S -y. l^JU J-^^J V i*J iL->- jl Ji>-^ 

: JtJl J5LUI J* f jjl>-l its olSCNU 4 IJ&* 
Real Pi is 3. 1459; 
Real radius is 1.24; 

real surface is 4 * Pi * radius * radius; 
real volume is surface * radius/3; 
write (' the surface of sphere = ' surface, 

'volume = ' , volume) 
END. 
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COLLATERALITY jU-*ifl - 3.5.3 

6 W J^ c / d J a * b -~r~^ of i-jJjVl Aply ^^i; i a * b + c/d ^^J-l ^dl 
. c/d JJ a * b -Li; Sjj^i J* Jj, *^i ^l j^j, ^ t ^^SUJI J*j . ^JLi U** 

SI UizJ JJU* S^i Jl jJjb of -jSUil J- ^Jl P yUt|. ^yiJ t laSOb 

> Jx (^ 4JU.UJI ^ SI, S2, S3 ^k-l^ jJc' of {fx JJLlI oi* . S3.S2, 

: ^i* 

J*- fJj'jA 1 "-r^ °' ol^Nl . p + q ^j*^Ji!j i a/b i»-«iJlj t p = a x b ■ ^ Al l 

: JtJl J£dl 
start 

real a is Read real; 

read b is Read real; 

real b is a * b, real q is a/b; 

write (" the product of , a, 'and', b, 

'Equal': , p, ' and the quotient" , q, 
'the SUM of p and q = : ',p + q) 
end 
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e^» iHi 



(Iteration, Variables, Assignements) 



: o.iil_4.l 

£-*■ J* iJLl*. .Ij»-| . jI -uVl ,y iLJu. ^ JjVl n Jl ilapVl *_-H 

. . »Jl (vector) l^zl\ ^Lp 

jJa! f jjljjLl l _ r -i <>15 S:>Uj i_jwjJI J** i \j~S jljSiJl oLL»^ jJ* jlS" li[ 
. ajIjUI <jj li. r ..<i <jjjjw^Ji n oj15 lil olx? -_y>Uil ^ /y jj5w- . ol^ll -j^ n 
JLj Mj U^J Jl J^ j>. i oLk*il -^ i*j*j? a^-L^ J-Lcj »il!i o\S lil : ^i* 
t jljScJl ^1 (, JxiJI jl^Sj iJUx- i^JU JOJbi •yi J-&A jl lil v_^r ■ « ^V- lr* 
*Lfi[ «LjjL>- ^ oJl* : iu»v« 4JjU- kim^ ^>- ajI^j t jIjlp^/Ij jJl^S\ Jjuj ,_£JJl 

J <JU=Ll ^LJI ^ >J jl /JUJlj ^jUrl j/- *il ias-^ i jl^ScJl iJU-c J 

: u n-i ^./aiiJL J-Lcj un j-ja^\ >1~>- ^l i SjjIjSo 1^1 jj* Sj 'oJil L-!>LJl ^-X^-l 

Un=f(Un-l) 

J^Lij UjbJbtj l^JLto *yi> i it^bi C~~J Ui, u: ... <k~*jJl ,*Ji]l v^JlS li|j 

1.1* jl ui, u:, ... rtJiJl sJLa . (Variable) ilj»c* 1/"^- -^-*-y ?y^y ila~»l,jj Jl«x» 

■jpj <cp ?- j-^j jl i—J; (_$l i 7Uj~<i' 'ry-^y jj^-i J' k — ■£ iij>«x!il (j^l JL>-A=Ll f-j^^ll 

. ( If^f-ji ^J JjlJULl Jb-I J ^aLxJl iJs- JC- » ; ^:1l : *&to ) -Uj^j <LPjjJ 

i*J jrvJi^ tc»^-J SJUjJI oJla>j 1 (assignement) |J /i../t>^JI ^^ LL>j> iSL* 
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. 7?*^ *-*-j <- — =- i[p*dil 

i J*pI &>U- js- i jl^ScJl SJU* _ 4.2. 1 
: JUI tlj=rNl ik-l^j iJUJl o JU ^.^Si 
To evenement DO 

Al; 
while condition sort by evenement 

A2 
Continue 

• ^y^» j»— |jl jj^jw (identificator) j^w -^ SjLp : evenement _ 
^ ±>jJl}\ Ija <l>wJ t JjiidJ Ju« ±>jj. J_ic ^ikj. juw" •_,* SjLp ; condition _ 

. (false) iaU jl (true) «^» 

<■-*-* j- •A'-tj - ( • - j-»\j\ <■ oUJbu" i oLUp ) JUil -y> SjLp : A2. Al _ 

. ( i>^ ojJj ^1 ) ^1 UjJLi ipjli jj$j Ji JUiVl 

• j'^ScJl yiljf TtpJlU j* ojLp U* ( Ujup . . . ^^ ) : while ... to _ 
: JUI LLUI «k-l* jJLo- jl ^ jl^ScJl iWj 




true 



40 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



J15L.L iil, frfi of -jS^c ( Jjtil i^i LoJUp i J*«l . . . j^- ) jrubdl oi* 

: 4JtJl ^IjVl 4k-lj; 

1) while C do 

begin 

statements 

end. 

2) repeat 

statement 

statement 
UNTIL C 

jlj£Jl oubJi Js»^_iJl ^j-SU J« «:...; of JISL-L i*l J -jSCJLl ^y> ; idas*-*^ 

. jljScJl £& ^>^ j^ J^j-lll OlS" lil ,j\ <. while NOT C 

ijljSoJl iLJLJl ij Jb- JjUj a \£\ iJoJ t _ J «-j jJl jiJj : "%* 
: Lw jjSL^. tiUi ju«3 1 iLJLJl ijjb- tu— f lili t IJL£a ui = (ui-i + a/ui-i)/2 

l 2 =a jl^f 1 l = (l + a/l)/2 

i«jU jl^/xJl iJLj; iJij i^ji epsilon J^U; iu*< isJb 1 ,_Lo J^i>Jj liiiJJ 

. epsilon ,yi yw»f ' a - Ux z I jwdl i*J ^va; L»JLp x ji$\ 

: _j* (jjjJ iij J» JUjc^L ( _ s * ; j j J| jJbM v_— 4 ^JJl «*li_Jli c li£* 

program Newton (input , output); 

Var u : real ; {. oU jliJ I iJLJL- } 

a: real; {« j jl>-'jp vi^J ^JJ I J .uJ I } 

epsilon: real; { iS jJl } 

begin 
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epsilon: =().()()() 1; 
read (a) ; u: = 1; 
repeat 

u: = (u+ a/u)/2 
until(abs(a- u # u)/ a) < epsilon; 
writelin (n) 
end. 

oXj^U jp ^^^1 - 4.2.2 

Vart identificator 

. iJ_p«dLl j»^il ( jXT_; _ identificator 

■ ^J^l J* ^.^U r Vl jf jLu^fl jicj ,. (Key word) ^Li» iHS Y;.r 

• * & <y f£ J* J-* J ,s~ identificator ily,A\ J ,. £^dl \'i» j^ 

• 1 1^ <y t5* identificator SU — Ll iloJ.1 jj t - ,>.| ^J<^ _.( 

Vart identificator unit expression 

5l_*-J,l 4_Jj_>cuIJ i-JjVl 4_o^iJl jJxj t £j_i v. _jj» expression ^--ocJl 

. ideiilificaior 

Var INT total; 

S f 

vi ^j-j i£JJl iL^ll £j> JJl£j ( ^^w, ) INTEGER US ^ : INT ;y.*i . 

. identificator ijj*il J-ir_j total t (l\pe) t _i J-'u 

. ^>wJl j! INTEGER ^Jl -j, ^ total iJ^I jl ^^dl |JL» j^ 

Var real moyenne unit 0; 
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. ,Jl*}-\ j\ real f-jJl j* ,_/> <JjVl 4*jill oli moyenne 5J_pd.l 

VarINTnbl,nb2,nb3; 

(assignement , Affectation) < j ^ : . ^ . > iJI _ 4.2.3 

identificator : = expression 

. ^ytwa^l iJUp J* J ju : = y>J\ _ : : 

i_^£.j i A-ik^i jl i.^>- ibl>w jf ijli jf- ! jLp 0j& of -jSlcj t expression ^vjcJ I _ 

iJL-p Jbo . identificator il^>dl ik^l^ ijjdl *-iJl £jJ £« Ujlku apjj Oj£j of 

. identificator <J.p*xJll SJbJL^I I»-aJly> expression ^^^J I £p«j ^/l^^i)! 

: aJUI iJjL«ll ik-ljj ii^J.1 ijLaJ-l ilJipVl ,y iUu* U« : ilL* 

no = a 

nr = f(ui-i) i > 

f jjljSU . C(ui) ij-ill Jp V-M i^ 1 u "Jj^ 1 -T^ 1 "^^ V-A 11 

: JUI JSJJl J* ^ of ^ viJUJU ^ HI 

begin 

Var real u init 9; 
for u DO 

while C(u) Sort by u 
u: = f(u) 
continue; 
write ('the result is ' , u) 

; ytll iLJUl J**^J of ;££ t V~ 2 iU- : "&* 
uo= 1 
-2/u,- l )/2(i>0)ui = (u,- i -2/ui-i)/2 (i>0) 

43 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„l.' 1 1. 1 l .l .lll .'.l., i|. '. II l.l.Tl 



epsilon = | u 2 i - 2 1 < 0.001 

: JUI JSL=JI J* jJU- ^wUlI r jjl>lj 
begin 

{ 2 iJL*U .^.jJl jJUL| U L^} 
real epsilon is 0.001; 
Var real u init 1; 

for square root DO 
while abs (u|2-2)< epsilon 

sort by square root; 
u:(u + 2/u)/2 

continue; > 

write ('the square root of 2 = * , u) 
END 

Extension *5~yJI - 4.3 
*!*JI t *- . iiJbfc \+J& uJijJl iolj*- djSS of j£x ' >-^U-l ,yuu J 

Jp J*iJl oil, jf o'ifU-l . -I* J Uil^l v_^Jl JUiVli c Jlj^Vl ^ Jj 

. iAJbi 0>& of ,j£c SjLJ-l jf r-UJl 

J*»i n &U.I jf . . . 2 &>U.| jf . . . 1 &sU-l ^ 

AK; 

i i ioU-l ilv-lji £j*.| cond k ■Uj-iJl Ux* 

Al; 
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i evj ik^l^ rj*""' cond 1 .WyJl Uju* 
si J*i : evl gjz 

sj J*i : evj £> 
sn J*i : evn rj£ 

FOR evl or ... or evj ... or evn DO 

Ak; 

while cond k sort by evi; 

Al; 

while cond 1 sort by evj ; 

DO 

output evl : action si 

output evj : action sj 

output evn : action sn 

end of iteration 

Jusqu'aevlou ... ou evj .... ou evn f aire 

Ak; 

45 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„l.' 1 1. 1 l .l .lll .'.l., i|. '. II l.l.Tl 



quand cond k sortir par evi; 

Al; 

quand cond 1 sortir par evj; 

DO 

sortie evl: action si 

sortie evj : action sj 

sortie evn : action sn 
fin iteration 

°j'\ f J^ 1 ev J i-k^ 1 v"k tfJUl J^*Jl ij : Sj ja j^Ij J*i JLi; j^u- 

- Sj £>II 

: 53Ly« 
Wif ^y&i : (Liste) jIjlp^I ^ i_>jV J>-|Jb ^>bJl Jb-f ■y; iL^Jl 

. ^Lkll JJL*Jl Jbi ,Ja- i>J^Ui J*-lJb ilcxJL »j2jjjSM\ {jj\j£-\ 

. NB yb <cp ^l^t-J (_gjjl iJlxJl of ^jXiJ 
. value : ^ i>o")Ul J ^r>ll :>-A*JI J-if ^1 *$j>A\ 
value abscent : ^ i_JUJl j .uJl JJi jJl 4J_j»d.l 
. nb list ^Jb o^tAll J S-ij^-jll jI .ApV! 

Begin 

INTNBisreadint; 

Var INT nb list init readint; 
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for value OR value abscent DO 
while nb list = sort by value abscent; 
while nb list = NB sort by value; 
nb list = readint 
Continue 
output value : write ('the number is present') 
output value abscent : write ('the number is abscent); 
end. 

; a, pjjlji-l I A* (j iLjC—ll oNjs^J.1 

ik-l^ iJue J^l : "k* ) !*ljiJI «l*-lji *&l Jl J^ Cr*-" *** : readint - 
■^ iSH ,\jE jJbJl liA . ^S^J» J bjry ii\S lil 1^ ^^v ^1 ^-^ j* : NB - 
^JJI NB aJbJl JUIjj i Ul* i »^ 11 <J>£^J ' :> " uJl -^ / l M : value abscent _ 

UUp ^ ^jjiLl ^j*-il ^ (j-Ji i *W.A=* jlj£dl ui.LL^ 0j& Uoip 

. ojla jijsai u*~ aWi oji>i isjb-i *k-ij. mi ji>yi 

FOR el DO 

FOR e2 on e3 DO 

while C sort by el; 

DO 
output e2; 

outpute3; 
end of interation 
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uT-liM J*m)I 



(choix) jLss-Vl 



: ojuLI.5.1 
: JyjiJI u ^ i ci-fc lii IIJ JUiVl JUj p. *y 4 oMULl jtff J 

: iJUliJiUil^^iiJ. 
ax 2 + bx + c = 

* ! j^ 1 SJUJI Jj . Os-lj jj>^ ibUJl 0j£ t ^ ^jtj V b'-4accJl£ 

• ui&&** au^f. &l*Jl dj& t ial>«ii W-4ac cJtf lil 

■ SJ i-^ «~U» ^_, i^jHj i Uj i^aJ <kU* £j** iJL. jjji^ p-^f lij _ 

*kl> jUif jf i^ *»JUi "Li: J\ tf^ \X# t true ( £*) ja-dl IJla iuJ 
SjU Ti Ob 4 <ii^Jl J, J-r sJ| ^ i iap ^ Sj u Ci 01 ^jk± . j^\ I i* 
: <>. US ^Si jL^-Vl U«j . Ci ij^l H ikl^JI oUJUJl ,y x^ ^ 

Case 

C1-»T1, 

C2-»T2 



Cn-*Tn 
end of case. 

UJJ3 ^ JUif -y. 5j U Ti oUJUJlj 4 Uk, jgjUl -y* SjU ^ Ci i J-r iJl 

49 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„l.' 1 1. 1 l .l .lll .'.l., i|. '. II l.l.Tl 



Jpj^JI oi* . a^j J,l&, J£jj. Ci UkLJl ityjl ^Ldl iL*-j ^jjb ^ _ 
true S_»-L pH\ Js- _u»-lj J,^ ilLj* ^1 t s^^ciy iJ^U jjSJ jl ^ 

V i, j, i ?*j,Ci AND Cj = false 

. Aj JxJvaJI 

Jalp CI, ... Cn Jpj^l j^ Ua^ Tn + 1 J*iil JC; Li^ lil ; St^b 

. oVUJl iLgJ jj«: ^1 end of case : Ju U l-j^ . (fal?e) 
Case 

C1-*T1; 
C2-*T2; 

Cn— »Tn; 
else — » Tn + 1 
end of case 

: iaip Ci l>jjJii\ j*~*j^ jl ^jJfjJLS 
Xi Tn + 1 i>JLic<Jl oJL* JLij ,_Sj?«~~i t else Jjo ivs>L>- i>JUj «i^; ^j>r lili - 
■ *Lr*"lj' J-** lS' -M-** 'J-J-' 1 ! case (_s$~^ *^b ' case ^J^JI Cr" t W^^" 
: iJhJl iuJLeJl iL-jl^j ilUJl sJlai ^ j~jcJLi JlSL-L iiJ ?r. »..■> " 

CASE expression - test OF 
valeur 1 : instruction 1 ; 
valeur 2 : instruction 2; 

valeur n: instruction n; 

END; 
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JuiJ »w 4 valeur i iL«_iJl JjUj" expression-test j~>ci\ i»J Oj>5J Uxs- 

. t g **• ,js i~-LJl i>JU*Jl _jl tlyrMl ol£ I i[ *?» 5-JLp a-oj^ jl j^Uj U5 t c^ljj 
t valeur i ,y> ljj>\^- i*J it JaUj M expression-test j^^\ *-<~? C-^l? ■ il 

dbjLjj (GOTO) olyjy iil ^ Wo^ ■>• ^^ "^ i*^ 1 «-i* jr^j 

. ( a = ) ax 2 + bx + c iJ^UJl j_>JL>- ^— >-i : ^ 

Begin 

real a is read real; 

real b is read real; 

realc is read real; 

real delta isb f 2 - 4 £ a & c; 
case 

delta < 0-» write ('without + real solution"), 

delta = 0— » write (' one solution, x = ',-b/2#a) w 

delta > 0-» write (' two solution: ' , on line. 

' xl = \ ( - b + V' - delta) = (2 * a)) 
' x2 = ', ( - b - V~ delta)/(2 * a)) 
end of case 
END; 

i)LwO 

: 4JUI JJL-Jl J?«j /.ji t/pJl p*l^Jl JlSL-L od; t_j^l 

*-~>Jl iJL>*J cS-^l l -'.r P " t^ - -kJl_>cJl; t/jj^s^ J>iJ^ SJ^mJI <lL>«_~Jl 

: iJUl SJLcUJl ^—s- j^ OJ jiljJl 

'C',^-9-10% -A-p-^10% 

'D'p-^-5% •B' r -*-5% 
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jp Vlj i I J 1000 J* ju j£ ^JLJI 015 lil .iJUij 
Var LC : CHAR; 

MONTANT, APAYER : REAL; 

CASE LC OF 

'A', C : APAYER : = 0.9 * MONTANT; 

'B' : BEGIN 

IF MONTANT > 1000.0 

THEN APAYER : = 0.95 * MONTANT 

ELSE APAYER : = MONTANT 

END; 
TT : APAYER : = 0.95 
END; 

. JU^-VI £JLJI j*i : MONTANT iJ^uJl - 
. 4*i:> v^y cH 1 ->' r"^ 1 ^ i 1 ^ 1 J^ '■ Ap AYER i|^«iJl _ 



IF .... THEN ... ELSE iSLtttl oUJbdl . 5.2 



IFCTHENT1 

ELSET2 
END IF 



Tl oil C .Up 131 

T2^lj, 



Si CalorsTl 

Sinon T2 



. JUil jl oUI^-l jl oULu jp SjU : T2,T1 _ 
JSLiJl IJL* . T2 jf Tl voUJjcJI JLio ^ «u»L»l ^Js- i jm \»jZ> -jp SjLp : C _ 
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IF C THEN 

instruction 1 
ELSE 
instruction 2; 
instruction 3; 

JLjiJ j^u-i «true» ( i_>*_?w ) ^ C ^yJa^Jl J?^_±Jl i<wi ^L^ lil ^1 
C Js-j-iJl i»J oJlS I3| Ut . instruction 3 i»_Ldl dJJi Jjuj instruction 1 iuJ^dl 
. instruction 3 dJJi Jbu^ instruction 2 .<Jl>cJi IJlo ,*i~i false ^ 

: **U 
IF A > B THEN 

WRITELN ('A is Great than B*) 

ELSE 

WRITELN ('A is less than B'); 
WRITELN ('END OF SEARCH'); 

: aJL~» 
i Ax + b = JjVl i=rjJjl *J:>1~ j^ 
X = — A JiLw- jJb>Jli i A = ju? -jP iib>^ A i*J oJl£ li[ 

i*u^ j^p jl «impossible» ipLt A^-i t (A = 0) JiUJ A i*J c^LS" li[ Ul 
. ji^ -jP iiJbi^. jl ^ J^Uj B i*J oJl5 1 il Lu»> «UNDETERMINATED 

IFA = 0THEN 

IFB = OTHEN WRITELN ('UNDETERMINATED') 

ELSE WRITELN ('IMPOSSIBLE') 
ELSE 

BEGIN 

x: = -B/A: 

WRITELN ('The root is = '. x) 

END; 
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^iLJl JvaiJl 



ARRAY JjLbU 



. -UJiJl jl j^x}\ Jp JjL; iLjw^^JlUiJLp <Ja-vl^j s^ujLp JL>-I jf Jj jj-l J AJJ^J.1 

: oJ <, dJJS j^Jtoi t iJ/'-Vl A^j-jf <Jp Alphabet 

. aj-^?h^1 i-ijp-Vl v-ja^ (Jaj ji J-fcu- Alphabet _ 
. 'N' i-ij-\j*j Hjvij^ajJl Jp J Jb Alphabet [ 14 ] ^ajJl _ 

JjIjULI ^ ^^.aJl.e.l 

[ inf : sup ] t identificator is v 

[ inf : sup ] var t identificator { init v } 

: j^u I i*j 
. aLoIS^ Jj-bLl *-J jp SjLp : identificator. 

(type) Jj-bU ^U* ijPy Jp JjUj ; t _ 
: JbJl JS^JI Jp J j jJ-1 J ^jJl ^ n j juJ js-jly* : V _ 
t^l^jruju-jpSjUViius- i (VI, V2,... Vn) 
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. V ^1 «Jjf i^i5 i^L- J j jj-l ^.Up jl ^1 t V i^iil J| identificator 

. J jail jUI jl LUJlj LjjJI Jj -J-l i,ji^ jir : inf : sup _ 

: ^ 
[ 1 : 26 ] CHAR alphabet is ('a\ 'b\ V. ... V); 
[ 1: n ] varrealv 

• l _ s 5 ^>- -»-^ n Jp ^^ V (Vector) *»JlI 

4 - J ^ a J-^ ) *j-»\-* 26j J-^lj jL~* ^ ^Lj i alphabet JjjJH L-u, 
. z... b, a iA^Vl .-i^Vl /y> 5jU t ^JU^i Jj^j J*. iS_f£j <. ( (Vector) 

JISL-L iiL J jjloi-l -j* £^aJl - 6.1.2 
: JLJI J£jjl J* J15L-L oJu JjI jJ-I ^p ^^\ ^ju 
VARV: ARRAY [ 1...3 ] OF REAL; 
W: ARRAY [ 1..3]OFREAL; 

• real ^ cs Vs* 3 - j-* 1 ^ ^ J* Y, w ^ni jj JjJbLi ^j^ 

. (t) Jj-li-l y^»l^ 9-j> ,_,* real _ 
. <u-4 jl Jj-U-I v_»yt« J-i£j identificator _ V _ 

. (three dimensional vector) jLioI 4J!&j ^cjt s-y tLUj jS^il •,** t I^J-Lm 

TYPE VECT 3 = ARRAY [ 1...3 ] OF REAL; 
VARV: VECT3; 
W: VECT 3; 

JlzJL JjjJL| ^Lp U-U. _ 6.2 
: ,Jj LS" jJLj iA-L*il oLJbJ ipL^aJ Lm^J.1 _puJl 
identificator [ index ] 
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. JjJLi-l ^-1 J_Lc identificator <JjA\ _ 
. [ inf. sup ] i>t~oiJl J^ ,_y»^ <jl i-^ io-jiil d_»- tt^t^o ywJ ^ SjLc- index _ 

,^1=1-1 ^jijll ik^.!_jj aJI jLL. JjJbU jy. Ij^a^- ^«j identificator [ index }ju>ci\ _ 

■ Jj-ii-l J (index) -o 

. (Vector manipulation) A^dl <JjIju 

lit . V = (al, a2, ... an) <JLiA-l ilJU^Vl Jp ^j^ ^JDl V «^ll ^jLiJ 
y i j»ij j^aoJl ^ V [ i ] jydli t Vy> *>dJ J_ir ^Hl JjJbU i_i^w y* jl£ 

. ai ^al*Jl <j\ t JjJbll 

: i j^>ci.\ >~>jj> aswI v o£ JLJl fjjlji-l 

Begin 

INT n is 5; 
[ 1 :() n ] real VI is (2.0, 3.0, 8.0, 0. 1 , 1 .0); 
[ 1 : n ] real V2 is (-5.0, 0.8, 3.0, 2.5, - 1 .0); 
Var real scolar product INIT 0.0; 
Varint index init 1; 
TO all elements DO 
while index Sn sort by all elements; 
scolar product + : = VI index x V2 index ; 
index: = index + 1 
continue 

write (scolar product) 
end. 

(FOR)i^-_ JliaU-l-6.3 
J-iiVl j^i ,. oljll y> U^ *~jjj>wj ^ iJbJ U-Uil j\^cj ^J-y Ux* 
(Scalar ^Ul ^^\ gJU ^AJI JilUbUdi .TO fcLLl ja FOR ttU-l JUx-.l 

• uif**^ uy. product) 
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: JUI J5LDI Jp f jjl>l jJU (TO) « ^ , ttLJ-l JU*i_l 

Var real PS init 0.0; 

Var int ind init 1 ; 

TO vector DO 

PS + : = [ ind ] x V2 [ ind ] ; 

ind : = ind + 1 

while ind > n sort by vector 

DO; 

: JUI JiC^Jl J* pjlji-l jJU-j c FOR iiU-l Sk-I^ Uf 

Var real PS init 0.0; 

FOR ind from 1 by step 1 TO n DO 

PS + : = VI [ ind ] V2 [ ind ] 

DO; 

e3 jp- e2 o^kio el y> i Jl 

pour i depuis el pas e2 jusqu'a e3 
faire S 
faire S 
fait 

FOR i from el step e2 TO e3 
DO S 
DO 
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. (integer) « f^^ » £jJ' y *ljx^> Oj& J 1 v^J \<? l 4 ^" 1 
^ jl , j\Jci\ iJUju <oJl JJ SJL^Ij jy. ^-^ i^-^oU: jp SjU : c3. c2. el _ 

el = 1 dj& L«x*j i i ^U-L (ni^Jl <V^ i*-i^t ^ ^J^ 1 i *^ jl u5* : cl - 

. from el iL*i-l *UJt LJlSULi 

. by step e2 aLJ-\ JUM hJlSO.Li t e2 = 1 cJlS I ilj <. UU-I 5j^ ^JI : o2 - 

. i iljpdil l^Ju" ^11 vV i *^ 1 a* S J^ : e3 - 

f>rfi , JISLAj iiL . iiJJ-1 (—*■ J-^J ^11 oLJxJl -j* iL-l~ jp EjU : 5 _ 

: iJUl i<jL>d1 ikJ^i « j>- _ J.I » iiLU 
FOR i: = expl TO exp2 DO 
BEGIN 



S 
END; 



V.V = AU,V, 



jTt»U Jl 



Const N = 20; 

Type DIMENSION = 1...N; 

VECT = ARRAY [ DIMENSION ] OF REAL; 
VARU,V:VECT; 
UV : REAL; 
I : DIMENSION; 
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UV : 0; 
FOR I : = 1 TO N DO 
BEGIN 

UV : = UV + V [ I ] * V [ I ] 
END; 

(Multidimensioned Array) jU,! SJL» JjIjO-I _ 6.4 

jp jJSi; ^il)i x* i Jji o^ je. 5j u l^ ^ j ja jL| ^La u_>Sj Ujlp 
J j a>o ifcj ^ ^Lk^i ^j| y^ iL-Jil ;^l t ^ . ^J sjuo Jjj^- 
= 100 t ^i = o ->Li, ) Vj-^JI i*-iJl J-L'^* J-5 ^ ( ^jl^ J^ j 
t {L* 128 x 128 ik-jj, 5jj_^J| j, xJ. ^^ \>\j . 5jJ _^]| ^ ^j ( ^ 

[ 1: 128 , 1: 128 ] varint image 

integer - int O 
J* 1 lSj^J A>^^aJi jl-U-Vl /yi -j, J^ Jj Jo- jt SjU image Jj, juLl jl ^| 

. bOP jlij^a^ 128 x 128 
: JUI JS^JI Jp ^ :>UJ 5 ju, JjljJLi ^ ^^li li£* 

: Ji le 5 " (^ -^^ u* n iJ0 V ^j^ 11 J^ J_?-L>- V^ TUj-^aJl ,^1 
[ infl: supl, inf2: sup2, ... inf n: supn ] t identificator is \ 

[ infl: supl, inf2: sup2, ..., inf n: sup n ] vart identificator init { init v J 

: SJUI am Jai I v_~«^ ^ iUl so*, Jjj^ j^ ^^p jj c-jJLJl _ £ 
identificator [ index 1, index2 index n ] 



I 

2 



1 


2 


3 


1 


20 


10 


3 


4 


5 



; JUt Ojljill J_jJL>- ^ijZiJ ; ^Lo 
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: Jt)l J£dl ^f^K* Qjudto 
[ 1: 2, 1:3 ] table is ((1, 20, 10). (3, 4, 5)) 

. 3 i*JUl JaU. Table [2,1] ^^Jl Oil 

: &>■•%, 
. supl - infl Jiljo jk-Vl JJUi JLJL_j i jk~-Vl sJs- Je JjU infl: supl 

• JjJsM J 'Ja^VI oJ* JjI*j sup2 - inf2 

.3x4 jUjL Bj A cJ_yJl j* JcijAsa* f-j^r <■ -^j 

Begin 

[ 1:3, 1:4 ] int A is ((25, -1, 0,3), (12, 3, -8,0), (1, -8, 2, - 1)); 

[l:3jl:4]intBis((3,-2,-4,8),(6,-8,0,0),(l,l,l,l)); 
FOR i TO 3 DO 

For j TO 4 DO 

write(A[i,j] + B[i,j]) 

DO; 

DO; 

DO 

TYPE name = ARRAY [ 1..N, 1..N ] OFTYPE; 
TYPE = integer, real, char 

'■ ^—^- 4 B, A iJCijA^aX\ \^jj> 4>*~o 

A = [ 1..N, 1..N] 
B = [ 1..N, 1..N ] 

Gj = 2 An. Bki 



k-i 
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. k jA (_5jL>- r-j-f *^ iils- 7?^* Lft ■»* i 'r y*^r i^ »j^ j* ^ L= *" j>' 

: g-U^I 
PROGRAM PRODUCT 

TYPE MATRICE = ARRAY [ 1..N, 1..N ] OF REAL: 
VARA,B,C:MATRICE 

I,J,K: 1..N; 
BEGIN 

FOR I : = 1 TON DO 
FORJ: = lTONDO 
BEGIN 
C [I,J]: = 0.0; 

FOR K : = 1 TO N DO 
C [I, J ] : = C[I,J] + A[I,K] xB [KJ ] 

END 
END 

(PACKEDARRAY) JlS~-L iii* I^lyll Jjl^-I - 6.5 

J L^i- (Sbits = lbyte) SJb-lj £A. JV-iJ (Character) i*~Jl jli 4 ^yH 1^ 

. (4 bytes) fc. 32 Ujt aJLSCj iiC J«a-J UL ^>>*J 
pi-, i ARRAY [ . . . ] OF CHAR iabJl tt;>Jl> Jj^l J^ ^> ty 

;UK J oLob ^hjI J* j,yl V ^ j£^ oL-Jl £<J- ft-* «. PACKED 
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Type ALFA = PACKED ARRAY [ 1. . 10 ] OF CHAR; 

i*^ v l_^ Jp p. dLli jO, «. i/lJUl J^iy i^ljdl Jjl-^l &? •■ »M 

. iJ£Jl J^IJL; ^^X-Jl -^P vi^J jl ^£ dJUi .buj t ^^Jl IA* l*l»-U J^-ji 

PACK ;L. II oUlj-^^fl ^ oIj^j t JjlJ-Jrl jJ^s- ij_Swj J^j oLS0.NL, 

. dJJb £*-J jJl UNPACKj 

: **u 
VAR A: ARRAY [ 1 . . N ] OF TYPE DEA; 

PA : PACKED ARRAY [ 1..N ] OF TYPE DEA; 

: iJhll iiU-l JjUj UNPACK (PA, A, 1) .Ij^ll 

ORK= I TON DO 

A[K-1+I]: = PA[K]; 

: UU-I JiUJ PACK (A, I, PA) pI^j-VI U 

fork= 1 TON DO 
PA [ K ] : = A [ K - 1 + I ] ; 

record type iL;^— J f-j^l - 6.6 
record fjJl - 6.6.1 
■pAi y j^sLiJi -j* n .Up ^^ SJL^-jJl iL~»jJl j> Jj-kM 
jJl, jJl ^ *L— I jt i Sj^Vl ol>- ^1 J OyJ\ J^p flijt 
t iJUJbi j» fli-Aj i L^pIjJL «_ib£ jJl ^L*Jl ^*^ iSjj^ 1 
Jii>J jt ^ i ">&> /l*. ( file Jjli ) ^U- cJ]}; jJl o^J 

: iJkll ol^Ul Jp ^j^ 



: "5^. . £_jJl 

j* u^-J • ■ • 
;L~JliJU-l 

LiL» OjjJ J& 

Numero 

Nom 

ADRESSE 

cpville 

NUMEREP 



Numero 
Nom 
adresse 
Post code 
representant 



Ojj_)]I jl_fp < 
jlUll J *UJtj i5 ill ,_L>JI ' 
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REM,SE Remise ^Jotf.at 

CAPREC Chiffred'affaire ^ Ul CjI ^ Ji J ^ ' 

CA COURS chitTre d'affain, gU , ^,'j ^ . 

.-L» JP £^j| ^ ^JJ| reord t>J , ^ ^ j^ ^ ^ (J ^ 

TYPE CLIENT = RECORD 
NUMERO : INTEGER; 

PACKED ARRAY [ 1..K) ] OF CHAR; 

PACKED ARRAY [ 1..30 ] OF CHAR; 

PACKED ARRAY [ 1.. 20 ] OF CHAR; 
INTEGER; 
: BOOLEAN; 
: REAL; 
: REAL; 



NOM 

ADRESS" 

CPVILLE 

NUMEREP 

REMISE 

CAPREC 

CACOURS 



: J, LS" t CLI (client) JA,J\ J^ ^ ^^j, jj^ ^ ^ 
VARCLI: CLIENT; 

: «JUI iiJJl ik-|^ CLI ^ ^ js J| ^ of LJlS^Lj 
CLI . NOM : = ' DUPONT 
IF CLI. REMISE THEN... 

TYPE ENTREPRISE = ARRAY [ 1..50 ] OF CLIENT; 
VARE1 : ENTREPRISE; 



: >* i (entreprise) 
HI [I ] .CACOURS 

Kl [5] .NOM[ I ] 



: ^ c o y J\ liA ^1 -^ jjVl i«_Jlj 
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: ilL«4 

. 20 J_jlaj t (Libelle) ( i*J 1| ^,\ ) ^ 9 

. ^j^»- -3-^ 4 (Unit price) iJLJl J SJb-jJl ^^ 9 

(integer) ^^f 1 (nombre) «Ul jjip 9 

. (real) ^^LJb- j>JLp t (montant) iAll # 

with iJUJl _ 6.6.2 
o^Ul SjjSiil iSL-SSCJl ii.jJaJL record iL^-iJl iL^j jIjlpI jl ik^ll ^, 

CLI . NUMERO : = 1000;. 
CLI.NOM : = ' DUPONT »; 

CLI. ADRESSE : = 'BEYROUTH' 
CLI. CPVILLE : = ' 75010 TYPE 

CLI.NUMREP: = 10; 
CLI. REMISE : = TRUE; 

p* tlkc-lj, (initialisation) ^I^pVI U** ^1 with i^Jbdl JU*^1 -Sij 

■ VlPJ CLI jU& y**- iP&j ^"-^" ^j 1 !*«- lyl <L>~Jl ^bj 

With CLI DO 
BEGIN 

NUMREP: = 1000; 

NOM : = 'AHMED' 

CACOURS: = ... 
END; 

i> Jjr^-L) JU1 Jill J 01^ (^ jb-yi ^^jOJ oU^ sjlp ^1 4 RECORD 
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SERVICE ^1 J USINE ^L i^ULl ENTREPRISE tf^l ^ o y -)\ ^\ 

: CLI J^JI ^ 
ENTREPRISE . VISINE . SERVICE. CLI. NOM : = AHMED 

. with JLjo-L aJUI <UJL>dl ok? lil ^£ 
with ENTREPRISE, USINE, SERVICE, CLI DO 
BEGIN 
NOM: = ... 
END; 

JJjPidl o^L^Jl _ 6.6.3 

r <yj * J-WI sallj ^jbj ^l Jp las> ,5>^- i^'^l oJla . U.UJL3 JUp 
'V c jLk. 'D' » ^j:* t -M' t ^f «C» : JJUJI ^1 J* Jjj 5j Lil J* 
c *UIS oU>ll j^- t C ^1 4 Ljpf J.UJI UJ j^ ^i| iJU-t j . j^f 
i 'M' ^i^J-l J* ^yj. <L»^x!l ol ^f t Ujji. l«J ^ jj| aU-l J jSO, 

o^. jJi iJULi j uf . c ijjji ^_>- ji aui ^i r-i > ^j^, iL^_du 

■ J-r" 
: JUI J£jJl Jp ^ l^j |j&» ^ ^^i 

Type NNN = PACKED ARRAY [ 1..10 ] OF CHAR; 

DATE = RECORD 

JR:1...31; 

MS: 1... 12; 

AN:0..995 

END; 

EMPL : RECORD 

NOM: NNN; 
PRENOM:NNN; 
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DTNA1S : DATE: 
CASE SITFAM : CHAR OF 
•C':( ); 

'M': (NOM CONJOINT: NNN: 
PREN CONJOINT: NNN: 
DATE MAR : DATE); 

•DW :(DTVD:DATE) 
END; 

VAR EMPLOYE : EMPL; 



(MOISJ^fi 
(Annee) iu- 
(EMPLOYE) J.Ip 
iL'UJl p-l 
PRENOM ^1 



(DATE NAISSANCE) io^Jl »jt 



(JOUR)^ :JR 
MS 
AN 
EMPL 

nom 

PREN 

DTNAIS 

'C 

'M 1 

TT 

•y 

NOM. CONJOINT 

PREN. CONJOINT 

DATEMAR 

DTVD 



VAR EMPLOYE : EMPL; 

Jl jZii . EMPL fy y, ^%^j y, ,_iJfe, EMPLOYE J^JI 0| ^>_ 
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Ul ^s JLxu/i/l k*A*; . *s.yj ( UiUJl iJU-l ) SITFAM JiLl jlsi CASE jl 

READ (EMPLOYE); 
IF EMPLOYE . SITFAM = 'M' THEN 

WRITELN ('DATE MARI AGE' , EMPLOYE . DATEM AR ) 

ELSE 
WRITELN (' NOM MARIE'); 



. DATE MAR J.I fjL J\ J^, ti t ^j$*jj- J-UJl jlS" li[ *;i Jl 

. <PjL ^.k...,; ^JJI JiLl LJ^d SITFAM JiJ-l jL^l j^b ^£ 

TYPE SET v>y£- pjJl - 6.7 

oJL* -j* 5_ib£ cjUj_»j£ J-S^ ul bJL£»li t A. B. C ^UjJI ^jjcl : *>Vi» 

[ ] j-ly Stfj^^JLI 

[ A, B ] «. [ A, C ] t [ B, C ] i. [ A, B, C ] 

: JISL-L iiL TYPE ^ jJLi; A. B. C ^LJl cJLS lili t »iSU 

Type ELEMENT = (A. B. C); 
Type ENS = SET OF ELEMENTS 

. p *Jl .j-JtJ Jl -nJ^3 tL^"ill jl ^jsIjJl' y *£■*.■*£■ 

•jj ,jJl oLt-jA^Jil »^ *^£ ^ JLlI SET OF *-_jJl J-S^j oUj*j>JiI c-U 

. ^»LaiVI 9 jJl v> j~oL*Jl »-« l^JLSLiJ jiwi! 

oIpj*=J.I Jp oLUJI _ 6.7. 1 
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^_JI j-i jy. SET OF ^1 4 £ji\ ^JC ja oUj^ J* Nl jJk V 0LL0JI 

. (assignment) ^jz~a>c\\ kl»* jVl ,^>- Llj JUL) 

Type BASE = (Bl, B2 BN); 

ENS = SET OF BASE 
VARE1,E2,E3:ENS; 

A1,A2.A3:BASE; 



iJUl { y3^l>^\ oLLo^ 



E1: = [B1,B2]; 
E2: = [ Al ] ; 



4>C i >!*0 llAJU.fr ( J^ 



(Union) iU^I iJu* . I 
Is-y^r <-,J^ aJUJI oJLa i JlSL-L iJbj < E3: El + E2 : Jj Iji ^i. v_^j 

. E2 Jl jf EI J| ^^cJ jJI ^LjJI *^- j* lHy 5JjO>- 




El 


= [B1,B2]; 


E2 


= [ B3, B4 ] ; 


E3 


= E1 + E2 



*. 



E3 = El X E2 



(intersection) «Js>UJl . 



69 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„l.' 1 1. 1 l .l .lll .'.l., i|. '. II l.l.Tl 



li£* . E2, E 1 ac*_^\ ^ y iSj ^\ ^^j, ^ -^^ ^ ^ 



>^J 



: y&* 



El x E2 = [ B3 ] 




E3 : El - E2 



(Complement) #l=Jl _ *■ 



V— * tt- liSU . E2 J S^^^JJI El ^ ^bJ| ^^ JiU: ^^ 

: o[ 4 J, : ILL. L» r ^aii oLkll 
E3 = E1-E2 = [B1] 




relational operations iJ»I%JI oLJLjJI _ 6.7.2 

OH^Oo^Ul cJIS" lil t TRUE £* ^ iJUJl .Ju El = E2 : J^UJl _ f 

■ j-»Wl ,j-* J* ±^l c5j^ Icr- JJ d 
tf-H OJ15" I3j t TRUE j* El <> E2 : (NOT EQUAL) JaL-Jl f JLp _ ^ 

. £jlL*j± a^l_, ^^ J* jiVi J* ^^ E2j El Oy^r^il 
E2 oJtf lil t TRUE ^ E2 > = El jl El< = E2 : (Inclusion) J^lail! • 

• Ei j^* g* Jp J5VI Jp ^^ 
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: yui 

TRUE^ A1INE2 

. E2 apj^I Jl ^j Al ^^oJl jU lil 

VARX:CHAR; 

IFXIN['AVEVIVO\'VVY*] 

^J^>-Vl **j-~£- J»J> J»-b jSL. ^Jjj- j* X ^ajJl olS lil 1,-J (j^"**; 

. IN jl~ ! -yS oil 
Uta. 5*1^ ^ w-j^Jl i e |y . El< E2 J>-lJdl S^P JlSL-L AiL ^^ 

TYPE CARAC = SET OF CHAR; 
VARCAR:CARAC; 
C: CHAR; 
BEGIN 

CAR: = ] ]: { ^l> ^-j^JlI ilj^l } 

REPEAT 

READ(C); 

CAR: = CAR + [C] { i»j>l ^-Jl ^L* } 

UNTIL EOF 
END; 

•jj-** W Li^jal lil «, JLJl JS^Jl J_p ^ CAR ip^Jil ^LJ» 

: wVVL 
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typcCARAC = SET OF 'A' ... Z' ; 
VARCAR:CARAC; 

C:'A'..-Z'; 
BEGIN 

FORC: = 'A'TO»Z'DO 
BEGIN 

IF C IN CAR THEN 

WRITE (C) 
END; 
END; 
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*j # LJl JlvsaJI 



(PROCEDURE) oUlyj-^l 



J*-JU-7.1 

. l\j>H\ J^liJ t JjVl ib^Jl Jj t fLlA^I 

j L .«.t^li t oL^L^I J UljJ ^Jl (function) « o^laJL » 4^-i y> tl^Vi 
v— ^ ,j5yj t ,/v*-^' l-i* °-*~^ 8«-lj* 4j»Ix»1j pr-o.^o t (jyw ^JAjjj^ju ,j max iJl jJl 
tlj>-Ml <jj J_jiJl «Jax-J if ^Jl Jj . max ill jJI o JLa jP tuj^\j <»jiJ of villi JJ 
. (argument, formal parameter) iAZLi cjIjJcu «lbu <u-~»- j t Jyco fjjlj>^- J-t£ 

Ioa oLlutoi : ,^-^j ?^j> J 3 *"'^ »>" 'LrrV '"^ *'"^ "^ C^i f JjIj^"' '-*■* ■^ II 
«-l^-=r jI fjJJi . iiSwJl oljJcdl w <L~»tx» aJla>- cj\jJcj> ^ SjLp ^y* /»j_jljil-l 
~>U^Jl SJU-L^c Jiij J ».».:.^ jS *c£Sj t (e-^^l Ty'j^' tJi ^" ^r^H ojl*L 4 oU 

iSj^rj^*: ^ja (operand) J\z* ^c- SjLp jA «-l xJl t JjVl iJUM J . i*J h) JLjJ 

. ( a + max (b, c) .^wcJl J max (b, c) *$&» ) 

oW^t-l -y, SjU l^fr, i>j>ll ilLil U-Ua Jp, t oIaI^I JI i^Hll _ JJLAI 
o\S lil ^ -^ t J_,^| sjjLUL Jvji jJIj iJ^Lp JSVl c ^>-Vl SJJlill . i^U 

-Uwj Ol^JcL. JUjC— L Syi JS Jj i Ol^. 5 -L«J Aj_^1±J| _ iJUll Js- <^~>-\j}\ JA 

j* oL*-UJl ( _ r ii JLjC*4 \^Ss liJLIi JCJii t (effectiv parameter) iibst JLLi 

. »jj>laij aLjjJj » jjlyl-l u\j iJlsCol 0i*~^ Jl «-l>r^l JLjc^} 
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•*Uj *l^l jf, g^l J J^^ai ^>cJl . 7.2 

*l^"bll -jp £^kJI„ 7.2.1 
: ytJl JlSLiVl jb-r ^Mi y> Gj ^\ jtf.L 

l)PROCidentificatoris 

{ fixe (al, a2, ..an } result type 
Begin 

Body of procedure 
end 

2)PROCidentificatoris 

{ fixe (al, a2, ... an } { mod (al. a2. ... an) } 
Begin 

Body of procedure 
END 

£>Jl li* . type j^ll ^| ^ ^j ^1 jj ,,^ V I .U <££ t J_,Vl yy-l J _ 

. character jl boolean t real t Integer jjSL. Jii 

■ *ljsr"^l J*- J-bj (J^j |^lyi : identificator_ 
(formal parameter) i^SLi oV^ ^ SjU a,, a:. ... a„ U£a!! oYp«^l _ 

: Jtdl j£jJl J* j^v, 

tl. XI, t2X«; ... 

PRO C change i j is 

fixe (INT i, int j) mod ( Var INTx) 

Begin 

IFX = iTHENx:=jendofil 
END. 

*l -dl oUJUj *i-\~p _ 7.2.2 
: ytdl *<JLdl ^L-Vl ^U^l J^Ijo v_^j .1^1 *| jj 
identificator { (ai ... a,,) } { (bi ... b„) } 
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. <s- ™j*ad\ Xs- ftlxJl J JojC^II t\fri\ *—l jjp SjL* : identificator _ 
. (effectiv parameters) SJUiJl o^wdil J-tr bi... bn , ai ... a n _ 

Xs fix iJKJl JOy SjJbJl USLiJl c/y^ll «_— b (ai. .. an) U*iJl oVpdil _ 
iiljil U£jJl oVpJLI v_— La (bi ... bn) oV^il Ui t *I>>-Vl ^ thj^\ 

. mod JLu 

(AI) : &, 
: JjLJI Jill ja max *lj>-Nl JLjC~.j 
proc max is 

fixe (INT x,y) result INT 
Begin 
IFx > y THEN result x 

ELSE result y fund of if 

. . . t 2 c tij . U5LiJ! oVp~JU U£jJ\ oli^ll J_i/ . . . xz t xi c^ 

.r* 1 J^'j oUi*Jl jl jUiVl <y> SjL* : (body of procedure) *I^»-Vl *->■ • 

o» aL4I ^J| -yi 4JL« iuJ ^bj Jl *lj=rVl JLfc ^jJj t (l) «JU-| J 
i-Jl^l ih-dl -jp SjU ^ i^iil 4 JL» . ft |^.Vl -j* ^^adl xs- result i«KJl 
. (function) <Jb j, — -*^/L. oUI^Vl j* ^yi\ IJL* ^ Jb . *I^>-Nl y--t 

. ^UaiLl ^J^ ( »x*i ^1 iJ&jJl ol^Jdil £*^cJ modj fixe JU^l ^^ 

: JjVl <!U-I v^ 
PROC max is 

fixe (INT x, INT y) result INT 

BEGIN 
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IFx > y THEN result x 

ELSE result y end of if 



END. 



INT a is read int 
INT bis read int 

write (' the max of. a, 'and', b. 'is:', max (a, b)) 
END 

: ilL— « 

. 1 1 jjuJI J_,Vl JOJLJI J 
. 7.2.1 S^iiJI J jAJl JiLl j, change t |^| JLx^L fJ ^ : A2 Ji. 
Begin 

{ use the procedure change i j from paragraph 7.2. 1 J 
proc change i j is 

fixe (INT i, INT j) mod ( Var INT x) 
Begin If x = i then x : = j end of if end; 
INT a is 10, INTbisll, 
INT flag is- 1, 
Var INT NB init read int 
TO research DO 
while Nb = flag sort by research; 
change (a, b)(Nb); 
write (Nb); 
Nb: = read Int 
continue; 

write (Nb) 
END; 
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t 10 J-sU; a %xdl . j iJjJL i Jjul~j *l^-^l IJl* i change y *1j?-Vl ^—1 _ 

. t-\j>rp iJLSLi oM.p*i» •_,* SjLp : j, i _ 
. ei>>-Vl J iJj«i o 1 ^. jp ojUj : b, a _ 

jJuJl lib Jj>U> jjoJI li* . iijliil «JLp j^-i; *J^- lS-UIj *j^I :>-u)I jJ» : Nb _ 
jjbJ! lift . i&l t\J& ^AJl i^AJl -y. «p>wsJl jJL*JI jf t read int J^-lJJl 

. Nb iJ_p^JL) <ya^ajij i£ll <uli-J (read int) 

to end of list DO i<JL>dl _ 

read int _ 
. i>J^Jl i.1^ Jp Jjd UL>o| ^^r SjLil ,yj t -1 JjUy : flag ^_pJ.I _ 

while Nb = flay sort by research : i*Jbdl _ 

. (research) ti^^Jl iJL»p *lrb < l LJ l 

^i ) b iJjJL a -U*Jl JIju-N i chang «-l>>-^l *1-J^ <sjz <■ iJ * J^ ' 6 ^J Xs - - 

. (11-! 10 JlJLs-1 

. 10 j>JL*JI *sy> J Nb = 11 :> JbJl it* ^^ _ 

. iJULJl -y. JLJl jJl«JI Stly (^^ dUi JL«j _ 
Nb : = read int 

— Continue ; iJuJuJl 4jI,a f-jL ^>- J-«u«Jl /ub _ 

: SWjJI - 7.2.3 

j Jj_^ jJl <j Ji . *lj-?-Vl tlJlJ JjLjJ.1 />jjljiLl i-ij-*^ Jp /»j>-^ *Jt_J.I 

^ i_«JLill (»^a1Ij iJLSLiJl oVj->^Jil cjUj_>ui ^ i o*Ldl J| ,_pj; ol£j— ^ 

IS 4JKJI jLo Jp aJKjJI o^il Jp ^j^i oUjviJl olft : UxiJl o^pdil 

77 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



jf tfs. ( Al Jill ) 7.2.2 :>J1 ^ J^| aUl J max (a, b) ,lxJl : &, 

Begin 

INTxisa; 
INTyisb; 
Ifx>ythenresultx 
else result y 
end of if 
end. 

£-*j»cJ J^>dl <^\SL.[ ^u ^il (modifiable) mod i_*KJl JU^I ^^^ 
t i-*- ^j>«^ J*>^ oL li- k_J^y IS ISli t IJSjk . Var ... *jjl -_^ oX^xll 
\Sa p~*r b\ J,** \lp t ( S-^soiJl S^Vl i*J*Jl Iwi ^-J ) ^4** *lj>-l J «j^« 
i A2 Jill J aU-l ^ oi* . il^dil .JL» J| gjA i*J ^,^4 jf ^ t \j*>l\ 
"%* c—J «I* : Nb iJj^cll Jl i^*, i*J ^a^ jl -j£c change i, j .l^r-VU 
. fixe ik-lj, IL_* Silt ^ US^JI o Veil ^ b, a oM^^JJ i^JL 5JLH 



■j; 



u-l. (formal parametre) U£jJl SJL^I oljJcll Jb-I Oj£> 1»jllp 
l Ja~*j j-je*S >iJJi) O^pdl (^0^-L A-^vaJij aJUipIj L<J |j|j t fixe <k--l 
J* p^. X> ^ -^ *l_rr"yi J>-b Jl L$l£ (tfj- j^Jl ,_/> aJj^JJ oJLa i*J oli t J*i 

. aJUMj J} Lfr>.jiJ il_p«ill 

JlSL-L iiJ J oW^Nl _ 7.2.4 
: oUlj^-Vl {y jUjJ JliL»L *ii J jl>J 
. (procedure) « »l_^>-l » *I_^-Vl_> t (function) « aJIj » sl^^l 

«function» ( Sib ) *\^i\ .7.2.4.1 
(Standard ^-j^Jl JjjdJ .k^j ^jo j* s^Uc ^ (functions) JljjJl 
• *>-L>- <— — a- JjJJl o J* -yi p^ai^j L> (_i_yti of l-if Jo.ni> J, I oli^L . function) 

JjOiJ ij^JU JU-I yb ^ t gj^jM J=Mj J o^l^lL; *i k iJljJl » *l a: 
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FUNCTION TG (X: REAL, ) : REAL; • 
BEGIN 

TG: = SIN(X)/Cos(X) 
END; 

( ilU-l ol* J REAL )^Vl £>!l . ilUJl « o"b » y^a <■ Jj^ 1 A- 11 

pi^yo J* J J*--^ ^\ ^i ^y d <■ ^-^ & J* "-vs ' A- 31 ^ <y 

*i Jill li* J . « ilb » .Ij^-Vl J SkioJLI oljJcllj oNj»dl 4^1 *>& >j*x> 

i .ml; ^jftj t l^e-ljiy t oljJdil p~> . REAL fjj j* X jA J^-Ij j-Jcu lS j-" ^rji 

. function aJI jJI iu-S i>L~>- Xjf- aJiSIjJI ol^Jcdl jjp 

; Jj ^ jJio <Jl JJI ic-UaJ J**iJ.I />U!l _pJli i I Ji£a 
FUNCTION identificator (ai: type, ai : type...) : TYPE; 
BEGIN 
body of function 
END; 

. tih .Ijsr^l Jp Jx £aa US : FUNCTION _ 
. ii\i t\js~)J\ *-*>[ : identificator- 

. l^pljjfj aJLSL^JI oNpd>l *L-.f '• ai: Type, a:: type , 

. SJIjJI i*J ^ : TYPE _ 
. iJl jdl (-a]}; ,jJl oUJLidl jt iJljJl -»-«>- : body of function _ 

•yi <ujj*ll i^JUj ,_,* (global variable) lAe- oNjs^x* j^-j U Oj Jl j~JLs 
Jai* «jyil ^^j ,_^i (local variable) AjjS'^ll oV^ll ^ i ^jlill p*l»jJl Jc* 

• <~* *lj>-^l Jrf dr* 

PROCEDURE oUlyr^l - 7.2.4.2 

stalijJl J VUil »JUj Ol*lj*-*ill jli t UJLio JUj AIjo LJ oVljJl 7W L^J 

. «0« /»Ljf itS jljSo C) jp i^-LiVl aILAI J>- ^ sJIpLoj ^g-jS^I 

N jJuJ C i«-Ji jljSi j* i—iJj-a Ja^- *~-jj *yn procedure *\j>-\ ^*"&& '. ^-» 
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PROCEDURE TRACE (C: CHAR; N : INTEGER); 
CONST MAX = 100; 
BEGIN 
IF N ± MAX THEN N : = MAX; 
FORI: = lTONDO 

WRITE (C); 
WRITELN 
END; 
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^Wl J^mJi 



DATA STRUCTURE oUa*il *L> 



( ^i^Jl jf ) JS^I _ 8.1 

-C* Jo" i>* v^ J* j~M - »^<»Up I,- JajJ i.1* ^Jl^ 43^U» J^J I j^ 

• Jo 11 J^ r*" 11 ( ran 8) «£* kjj- Jjj I p-i &-I* 41. ^^p JS" ^L c? k^J 
^LloJ 4 .^Lp ^ Jldil u ^i\ ik^ pi" JjjJl J^lA; c^Jl 4JU* 
JlU o* 5 J^ .r-P ) (index) ^JjLl i»j jj* ^ jl ^Ul ^ ^U J& 

■ ^ ^M-ll p-SJl ^ JI>JI Jp 4Slk»L yliHj ( j^w, ^1 

: JjJU jikil ^L^Jl 

: JUlJCiJIJpJi^lj^ 



A 




B 



C 




D 



E F 



'Jo"' 



■JoM 



U» 



M-L-ll i-«t ^— >-j . (queu) v-JJLjj 4 (Head) « ^f^ » J_^| jLir 

f Uu J, 1*5 JULj ^,U*U jjjj^ jy u^p ,|^| jj j^ ^ jjj t i^, 

JiJI Jjf J vl^vJl U~u * -JL 0y> o^J V Uxp (pointer) JUJ ^i> Jl^i-I 
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J- jf J^l il i ^ U^j ^J| ^ Six oi^l U^ J iUWI dUi ) ^-UiL 



- (*-'. 



'j 



,UJ! jl J^l J| u^ ^hp (insertion) -uUj iJlSUl J -^ JjUJI -^ t ^ 



L JV*J» 



JjlxLl_8.2 
s ^bJl & Jjj -y. SjU l^tsj ( two dimensions) ^jbu, JjIjlA-I ,_i^j 

■ ^ LJI iJ * cr^ 0- ^J> Jo o* S J^ *'* ~>*yjA lr* j^p J£ i^- 

jp SjU ^p J* ^ aLuUtte, c iik* alut, J_,| aJLl Uuyu ol^^Lj 
*U ^jL Jjlxr iJUj . ^ ^ Jj0>- ^ Sj U l^ ^p JS c ^LJI ^ Jij 
... ^1 i^i Jjxr ^ Sj U l^ ^JJ^luJl j, Jjj ^ SjU^p j5o^ 

dUU ' « Joll » V- Jfcr 1 </> i/IJUl J j>ll JjXi-l 4^ o\ Jl J >-U 

-up L^SdJ ^Jl dib ifcjj.tt^kj JjloJLl J^Ucu-L £_j 4L-, J| ^fc^j ^uij 

■ Jj-^-I 0* <-jj*. Ji - 
. Jj xLl iU.L il^> JSVjJI j\ ol^jll jl ^aJl ^ iLJL, _ 

. ^1 -jP x-l^l Jfc^ J$Lio ol^il i*J jjwJ <jlSV% t J _, 4JL.1 J t ^j 

. jLuVI j* n - 1 j> Jlm yt. 
: JUI J5L^J| ,__ o^^Lp ^L bplku-Lj t M(I, J) VjJi>- ^^^ii 
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SJUfrVl *k«.ljj JjsS-jJl J»l2J 



3 

4. 



'P 



M(Ii.Jl) 



P 



M(It.Jk) 



M(i.j) 



jq 




V 


'f 



IJUpVIj JaJi\ 4k-ljj ^bJl frjL 



;j_^bU oi^i> ik-lj, JjjJ-l ^LJl ^ ^ \s fjL ulS^lL, 
iUb ^^f ^,Up ^L Lu£r ^Ul ik-l^, t JjjJ-l J^b ^ t j^Vlj 

(arboresance/tree) oL^Jjl _ 8.3 
jb£ . oLj^l ^x ijJIi jji iJL p-j ^ iJUl ^J\ i^ j^-J 

. ilasL* A^py »JLif SJUj »*i _ 

lL *** u* -^ •js^ 1 »■** • ^^ -^b A-^ (»*i - 
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ij*?-* l fy* %y <y <J*a <•-**'-> 



( &■ yf* S^-lj la* U ) U J5 ^ (tree) S> ^i -^ Sj U ^ i^, 

4-J i^l J lil ^ . ^ ^ ^ V iJ> ^ .^ ^ (roQt ^ radne) 

. Jp-Ij ( Jj> ) cilU. ik-lj, ^f u j£ j^. ( ^ } 




: JbJI JS^JI Jp dJUij . £| . . . t i^ol^a t ol> 
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3j£i 



dili i : ^ iJiU; a-** j^- a,ui i*aJl ^ ik;>l ^l ^.h-^j 

: ^jc^xs k-^J^yl (I) 



(TARRY) ^jt L-7 ( V ) 
o-*i jtc ^11 p^all jJiL-i viiJi, c iLLJl JLjaJl J ^ jUl ^1 jj/ 
JU&VL (TARRY) £>- ^ f UU fJ i . ( Jl^lj >-. Jp ^1 J*^ ) i^l 

: JSLtj i«J JI ij j, t (root) jJbM ^ (s^UaJl 
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^ t jl*-^^ ^ ^ ^ « JpVI^ » a^J £lLJ i*J J^U^.2 

. (1) j \S Ji-Vl Jl <^_, 

( Up jj^\ ) ^IjU-l ^ ^ js-j . jLU i^| ^ ^ ,j^ 

. iLlS j»Jij" aJ^U- ^ nJLft . l^. 

. VJ f 
J-U=! ii> ^U^lj ^ ^ (vX) ( fj ol>iJ| j Sjj5il , olftUJ! 

Ji^" JjVl iU^Ji : jiaj 0^ ^sJl ^ ui jsr jiyj; ^ . oLWJ 

<U^)lj t ^^^11 ^^l 35 u ^^ ^iVl ^jrtJl -W3LI Jp iJUl <^]| 

. iJUi (v^aJi i3j jl jjij ijuji 
ot.^1 Jp ^ ^| LUj, . ^j, j^ LU xJ| ^ ^ ^. 

. jljfcJl Jl ^b£ ^1 yiikj 4 ( ia*U; jf ijlJi^l oli-U. ) 

i^-jJi JJr p jp t j^vi au-i J 4 i,ijwyi oUUJi y oU-uii fJ a 

jL^II ,_>u J Ljj^ 0^. Ma . ^1 Ou iJljJl «%JJ OLJ-L JbtVl £. 

• « i$jb » «-*./ v~^ ^jy V**^ 1 i#j j'*tJ jji au.1 J ^iJL- ^Ji ^1 i ^ J 2 
• Sjl-x-^^Jl ^IjiVl ^* c->Jl iJL** j4-J ^U ^-aSC* JL*i-l 



A = 



An 


A13 


Al3 


A21 


A22 


As 

- 
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4JSLi 




• ^"UXu- ^jy ^^ .JUol j_^ s^iL. ^.L^JI JUj- ^ Ujlj> ( oljJUll ) 



.Is 



. ^-iJScJt .jjLU* JUjc-I Jl r-bc 

: tt- 
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(binary tree) 5JkiJ| Oj^iJlj (TREE) o^^tJl _ 8.4 

. (SAG) tfjJl 4 i^U_ 5^ ^ju T ^y -yi <JUJ v*- 1 a* - 
. o'ldl i/s*JU (SAD) ^e _ i^U s^ j>x T £j j* «JbI S^ _ 

. £I>J| y-L- « jL* i iU^Jl . j^Jlj 45^-Jl o^U.yi J* oL.ji4 SADj SAG 
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V 


< 

CO 


■ 






u 




*-* 






\ 










\ 




\ 


OJ 




1-* 


\ 






\ 








Ld 








h^ 


OJ 


t-J 




>— » 
















>v 






■F- 




















NJ 








t— » 










<Jt 










4*. 


























\ 






\, 






< 


r 


N> 


\ 


i— * 




OJ 










Lfl 




4*- 
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CAR * 









. 6 


OU 


2 


6 











DOC 




5 










NI 


L-j 


3 


9 




10 




ET 


1 


OR 








MAIS 









tT 1 



jtsai 



SAG SAD- 

(STACK) ^mJSZ.] _ 8.5 

tPji I* <■ o-J&l i** Jl jl, jor j^ct. *h\J>\ _ 

• « j*-&»tt o^j J ^j-S Sfrj> Jj% 
J*ill Jl ip>_ U <. ^-j&l j* ^p ^I^J _ 





DATA I 


DATA 2 


DATA 3 


DATA 4 






^Lh** ^jmjZa 
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: Jm* 00"^* J»-"-»"J Of J&i t v *jj»^l oLk*ll jf ^-aSCll ^Up ii-UL 
j^jJI Jp <_MjJj ^i>j t .j-JiSai ,y JjVl ^*JI jf i_*all Jp *JVjlU ^j, 
jijU JL^I Sjj^L ijjjii V ^Isll JJUJI IJU . o jj*Vl j^\ J ^-L.Vl 

. SjS'lJLJi j j^bjJl J^J^J iJlzu 

. o^lJUU JUjCU-][ J-^itj 7<*-~ J ,_gJl i>o}Ul 4;j Jp J-^>J 

: JUI JS^iJl > jJU ^J^JU ^Ijdl JjUsJU IJ&* 





A 


•UJ 
















B 














tK Afll 


(j^-l^ll <•—<>- 




C 




















D 


^~ 












JpjJLi J...!...:,!! JJuJl Ul 

• tl-ll IC'll 




p- i*j 


A 














. (j»-i ,_r^*- - 




^oSlI^-*- 


— i<J 


B 


















j-jCi 


(♦^ ^" 


r~ *** 


c 






















r~ *** 


D 








b 


I* (•— *r- 
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(tables) pMjSlI _ 8.6 

VjJl oli ^»L*JI . ( i^^, ^ ^^j ^ ^ ^^ ) 5Jb _ ^ ^^ 
■ r* 11 J-^» ^JV Vji jtc ^Jl ^UL-U ^w^Jl oljJdl ^ j^iU 

> j^: ^Ji x^ uw oi^vu ^ j5^ 3^ oi^jdi ^\s isr, 

■ f 51 ^' J* oLLUl j* 0^>J pi! of biplk^L . oLk«ll .JL 

• L«jjj J-i-J l_~^ dUij 4 UUIl J sa^-jLl oljJcil 
JS" -y. d^JJ jl j^JiUUa^l wll jUpVI uyy J^M £• JldLI ^^SJl . ^ 

iif (dichrotomie)oli J _AJl **> l^ *ik£ J> JU*l-L ^ U ^S\ oLUp _ r- 
J ^ill ^1 o>« (1 1 JU * ^ Jp Icr* ^JS ^S-j Oi— •' Ji i*SUll ^-Jfcj 

li^Aj uv-^J JI \ju\j* -u^Ji; a* jliJl (% — 2JI J cp o*v JjVl ^ i5l 

. dJLJlja 

<~Jl>dl jl iij~i*Jl ^lyJl _ 8.6.1 
J* fH 1 s/'J ■ ^L-^l J>-l^ *i-»^l <rL*P £-ij~d pil^iJl «-La J*x^j 

. T i-L-Vl iJtiJl J (^ jJc'tI iiUI *-Jl» JUxu-l 

• T1 J A >^l j^ 1 u- >^I ** ^^ u^JJI ^1 olS - lil J^cJ JjVl ^Jijll _ 
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i Tl j i^l jjidl JiU, ^>JI jj£a b\S lil J„.o>J jUJl ji,^.\ , 
i-jjP-Vl Jb4 -jp Ij-i <^>*Jj iJ^Vl «-i>9-Vlj i*jl* ,_y9>uJ : ^i* 



E 





(5) 


J ! 


6 


10 


O 


11 


15 


T 


16 


20 


Z 


21 


(24) 



Tl 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 




A 




B 




C 




D 




E 




F 




G 




H 




I 




J 




K 




L 




\JA 





V 




W 




X 




Y 




Z 





. jru? J5Llj vIaJI <X*£- 

oLtuuiJ ^ j^ill JsUJIj U*Vl a*-lj, ol^WJ ^ pJtt . 8.7 

: i.OA*_ 8.7.1 

. ^Ul ^ o^- g c i,iUI oU«ll ^Jj JUoV . oL.ji.cJU f It; 
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oU>ll i.jf ^^Jsj . 5j ^Vl ol>- ^uJl J i^u, fJi J* J iJUiJl oLUl 
J oLk*il f^" *j- vr~i ^ <J^ ^ QJ, <^ j| jjj| ^ j 5ykUiJ | 

i--U-l oVVl j^ oU^Ul ^ J oUjVl ^UJ <JUiJl ikJ^Jl 

PAK c ECOM f lkJl t jJiy | ipl^jj !jb y J j^jl, IBM5520 ^ . ^ 

* l^bSU Jp «L«i-l oUjUl iLU f it; cx^WANG B^sJlj t ITT KjJt ^ 

» oLWl ily, .UJJj oLkdl -^^ QUERY t Imag f IkJl c^ HP CyJl 

. £jl . . . . ^yJl u -iJ SQL r lkJl IBM o^ ^ ^ 

1^*- V^ iJU* S>44l S^l i-U.| o^l J**^- iJyVl oJU 5JU 
•yj-id iu* ^ v-LLl oWl jja ^^Jcjj . oJLa oLL*ll *1>j ^ji^J ^S" 
jf ilrfj i.1^ JULj oLWJ ^LjJl y oLL* ^j 5j |^ ^ oAjJll 

. &L- ^f J ^JbUl oLt*il jA^Ij JUol 

. . . £jl SjJwJl olfjiJl J t St^iJl J : &. t -j^ jJ sJ aJ JU J ULx-.'il 
£>- a^i V JUL_, t cj^Ji ^ J l^L. J^_ j^ij £jj^ Ju i iJi;Vl oJL* J 
oL^ULl ^k; iX^ Jj^^ j,^ j^j| U.L.. 0U JLJLj t oLLJLl yj 

^ Up^. olib^. oUl flfcdl iJl*i jLs_ C jjl>l li,. t ^Vlj JU^VI 
*iyJ>- <Jjj (»Ltdi J^f, ^Ij J^Ux-l Jp J^a^ ^ ol^Ull ^LtJ ^Jio- ijiS 
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lf\^ ^ — *- oU^Ldl £ jy _ 8.7.2 
^jJl t ( oljjUl ) ^oLjJl -j* 4£-jA*r J* »jLp oLyjJ.1 <pj*£ oj ^yiii 

03 i oUjJUll f-l.pt j\ «, ( 2 J5Li ) Bj A oUjJUil olPj*>«i t La •_,* 

. £)l . . . t yu* t ^ 

oUjAjf ,Jp jl olj~»ll -y aj_^U oUjaj* sop Jp oUjlwil ipjAjf t^j^ 

: ^L. . oLUil -y. hj& 

c cu— - jM .p ) ioiJl olO^Jl -y Sp_j*jf Jp t5j>^ iOiJl (ibjVl ^ *p-j*< - 

• ( • • • iA*- ! js J 
. oLjLJ.1 vib £^J i. jj^ ^j t lfjjj\ \-~~z- oljjJil fjj; 

oU ,>l*ll oUj*jf Jp ii_,UL| oLUaJI _ 8.7.2.1 
B l£-y^X\ -y ^^p i_^,L A ■y ^^a^- JS3 lil 4 Bj A oy^y^r 0i! v -1 ^ 1 - 

.(3JSL1) 

00 CO 

nAn=nBn 

n=l n=l 

AnB = m 

Cipj^jJl oljj^i t ... t B t A oL^f SJLp -yi ill)* C iPj*^JLl cJtf li|_ 
. ( 4 JSa ) . . . Bj A oljjr J^U ^ LfcU J^>J 

00 00 00 

nAnBu... = nc 

n= 1 n= I n= 1 

*l_J : tjM. . 4jyU oLjLu. oL^jf sjlp -y u^lb" jJl 4 oLyjJil -y A»^f 
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JaU; £Sll sj^ 0j5j villi xp 4 ^i sjif. ^ ^u JU*^I ^ ^L£U ^j^i 

. iSX\ cl* l^ uiJb jJl ^LjJI cjIj-jT f^f 

^L-~* ~<±^ gJbJ ^j^il li»j i Vij 5 ^ 1 t>^ = + *UJl + SjJ^J-l 




2JS^i 



■Ore 




B 
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U^b ijS\i 





MEMORY 














C.P.U. 








4k 






oUjlw vib 


i 


^ 


1 












"% 
















^ 





5JSL1 

■ ^k^ 1 ' ( OiJ^ ) *^J "\jtij* t (DATA BASE) oLk*JU ^ ,L _ 1 
. ( <~J,l^ ^Jl )jjs f^j s^li JUx^j ^ ^jyj, ^ 

£A **r- <>•>" «J f V*r «i>Jl .^* t oLLJil ^ ,U wLJI ib^kll ^j _ 2 
JO** i*L*j * oLk*ll Jp ^^Ji fjj |^ ^ ^_,ui.| ^ L j, j^jj, ^| _ 3 

oQuJLl iUb *L . 8.7.3 

. I4JU0ULJI 
ol^Ldl j^- , LijiU \ oU>il ^1^ ji^j, jJL- : j a s^j| jjL. _2 
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iJ\JS\ Jp ol^UJJ J^IjJI JjuJL dJUi h^jj t oLk*JLl i_Jl Sij!y"l 

. i^jliLljf U>-|jJ| 
r lkJl Sjbl jp ^Ul JSUiL iJLl! . I* jJL" t oUy^ll fUk; i,bl aJL-, _ 3 
oUa*ll J^ oLL^pj t l^>j oLUil Jl ^LJI oLLp ^^ 4 <JLl£, 

oVU-l U-U, t s^liJi iu- t ju^Vl fc,lj, U»p l^i J^jbj t jLfcdl ilU*_ 4 

oUa*il JL>ol - 7.4 
JS «-*JLs . i^U oU,** Jl i*^ JJ «j«£ pi » oLk*ll JUjI Xp 

. iUSJl <p^l -jp l>il ^ J^j ^f ^ ^ ^ ^ ^j, ^ ^j, 
«>»uU *Lti ^ oU^UOJ v-L-l oljjr Jl J-*J ^ |tJ .„-dl <JLp ^t; 

. i~XJ[ iJVi oli t _ s $s JtJLj 
i viiJU U Jl . . J^iJLxU f Uij t ^jS> ^JlJ ^ y^y^l ^Jb : &- 
A.L.V i^lj Ukl| oLUJl Sj^-j -y ^y^ ^JlJ ^tJ| jp^j.! ^fcj ^ 
Ukil oLL*)l s a»> dlJi Jl iiUI . . . o!>U_,j V»f o* * ROM iotf syTii y, 
i (IC) U-ISJ oljb Jpj (trigger) ol>j>j Jp ^y^ oljla y. U&& i^JLlj 
. . . Ujj^^ t (speed) lfuy-~j U,LScJ| oljl jJIj oU-l^y"! jls£ . jJl 
0* M^j-W -^ 0^-J (registre) i_jU«ly\| -y. ^Jj^ olyJl oJL* «^ . . 1**^. 

-u^-j^r j*j-^ <■ iSyJi* oljjjr Jp J-*>^ of Js oUjLJll *__jy- jup 
LSyJj.1 oly^il oJa J^aJ OL^I ^Jpf Jj . oU>dl -y jvLiJbfe Ov^U 

* J - 

•y j_j«j <^>y- olj-f Jl J^aJ ^. £& l^ij^ ^^^ oUjLdl Slyi il»P 

. Jaii SJb»-lj 4jjjIj 4Pu^ 
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M[Ai(B.(C. (Di(di. ..d„),D2(... ),..., Dn)))] . . . 

A2(B2(C2(D.(d, ....dn),Dz,...,Dn)))...] 




ji>d bij^ci £>ijll S/IJJI ^ Jl U*U| jjJ jl ^ ^jjtf i^jf. ^ 
i-iljJl iUlS3l oU>il Jp J^ Sj aiJ| j|^ ju^L ^f < oUKJl -y. d^JU 

V-*- C-JJ^'J «-^" *V> V-»- o^Ull JUjI (.jjl^ ^ t 7 JSLiJl 

99 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„l.' 1 1. 1 l .l .lll .'.l., i|. '. II l.l.Tl 



J==-^ 



mi = Aj 



Aj = Bi 



K = k + 1 




1 = 1 + 1 




1 = 1 + 1 




NO 



1 =n 



Mi = Aj(Bk(Cl(Dm))) 



PrintM = A(B,C,D) 
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o*. . 5/liJ| J UUoJ lr £/!- ^ *i>Jl ^ cb 4 di t B J^ jl ju^S ^ _ 1 
iL> l_~^ ) d: t di olj-JLl ^^ jbi ^Jl oLk*ll -y> ,J^>J| 4jz. jUi 

i5j£ ilfdl Jj d: sjJLl jp ^>Jl ^ ctUi ^uj di ijil 4__^ ^^Jl p_ 
di oljiL jU ^J| oLyJUll g*J- j^, . ( d 2 1 d, oIj^JlL ) B <pj*>JlI jp d*Jl 
. ^ . ooUJ) Jp oU^Ull ^| gj£ diUi jui 4 B(di, d 2 ) : B J viJUij d 2j 
V-*- ( *• jrlrrj ) ^j 1 ^ 1 ci^ *-*lsLl cjU^LJII jp vl^JL ^^ Ut, ^^ 
4 oljs*ll oli oljb Sap Jp J^*j ji . ins **jJ>\j K ^Jl : JJbJl olj^JLl 

. Ins <*s~,j K ^ j, oU-l^j J-lc'^pIl iJjjxSWl oljljJL 
. Ins <*j~>j K irjj -j,. oWj>-j J_ir 

: a)L»< 
J£-S ) oijJJi olS>J ^-M ojbt J J^cUl oLyLJLI ^Uij ^yiJ : ^i, 

. jJl . . . 4 iSj-iJl »—i 4 ib-^l 
city [ ti (AKi, AK:...), ...b (AK AK„)... J 

city [ ti (AKi, N" VOL) ] 

(AKi) OljJJl olfp ^ l^ pi- ^11 o^U-jJl a^r ^ 4 ^-SUJI Jej 
oollj t ^i -^p SjU oljJcu 3b ^ SjLp dj£~* &k-J\ oJU t jJdl <yr JI 

: (city) 
AK[ ti(cityi)] 
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. tj jlH _ city 

il^^lfij.N-VOL 

. jljJJI iSjJ. - AK 



9JSli 
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J*^ 
















B 








% 

•5 



**p OLaJLv Jl>- jj La 

B(di.cb) 



8J^ 
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. ( 10 JCS ) : iiJJl ^ l^Jij ^ jf ^ oU/il jl>.L i^ULi oU^LJ.1 _ 
-fa-j- OjSL, j^Vlj cJLDl ^^Ij t olyi- «i*i J oU^Ull ^JiJ ^ L* 

F [ Dep (EMPL (adresse, salary, profession, stage ...)) ] 
EMPL [ F (Dep (profession , salary, adresse)) ] 

. J.U - EMPL 

. j^-iJl-DEP 

. b$il _ Proffession 

o\j& - adresse 

. ^Uil _ salary 

oUI c^Jl lUc iij^j a,Lw ^ oUjJUll y, d^«J| j^p i^li jJLlI 
Oib^J SO* iJU 015 lij i oUjLdl ^ £jb ^1 Jj^~ (.ju.j.-o^JI ip.^ J| 
cb~l ^ J it^jJl jSI^, : k . oU >il vjjb ^ Jp ci^Jl ^ J 0jL~ 
fc& -^'.J j*> 0* -ASl ^h of 604 oi JUL j t oU^Uil ^ Jp j^j boil 
. oL^Uil vib Sjbl f Ukj jrt* Jp ^ jjLii ,ju ,-j^ ^ j oU ^n ^ 

iOP S— ^ ^J * cH^ sap Jp ^ ol^JUil -jP vi^Jl jU t f Ip JS^j 

■ ^l^l**U .jJIjJI j^\ J^ljo iUVl J^P ^_^ j\ t l^pjyj i^M| ^ 



d^J of ^ ilaJl J t f LVl Jb-f J MEA tfp o^U-j -_,p c^JL ^±j 
4 i^UJl Jp oUf j^Ji; ^Jl ^lilL Jui j^s- i oU^JUll fiU» Jp J-Ullj 

. (12, ii) jsls (i) i^jjti ijui o>uii jp jw. uuoi x* jji_. 
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K> 


K: 


F 


Ki 




K? 


F 


Ki 



Kj 



K(, 




K7 



temps de vol 



K5 



7 



Kc 



IIJSJ 




K4 


NAME 


K2 


K-t 



Salary . 



12JSL1 



105 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„|.' I I. I l .l .lll .'.|., l|. '.II: 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„l.' 1 1. 1 l .l .lll .'.l., i|. '. II l.l.Tl 



«*mUI Jbs«aiJl 



j jiJIj *i^*-Jl cA^jj\j>- 



JjJer J*- ,J 4 j-*^ tj* <i^l - 9.1 
: jl d~~ iJill ^LJI ,>• N ,>• uilli, «. L ^Jb "5, J*. ,»J 
Lui< Ln+ 11.1 = 1.2.. ..s- i 

; Ac- *»2j iJL»il . A <Lo«j« <uj ^^jjXiJ 

. A = Liu Jp J-^>^ Jj-iJr 1 J A 

. ( I y» »_jjJLki1 ^jil j _>£> i A < Lei olS lil l5' ) A i*J*Jl S^L. 

(Sequential research) JLdl «Ju»>Jl - 9.1.1 
: ^.y. lijy iib- Sla—ljj t L JjJL>JU Jbdl j^^l J*- ry«i J^-Vl f jj'j^-' 
: ,jf t A ja jSH\ ^pajJl .UJ U jup t^l 4a)J-I ^-iijJ >J^» jL*>-ij <. Un =£ A < Uni 

. A< L(i + ii 
L* ja . jl^Jl ^jll £. jilyS N A < L hj A > Lni oVU-l jl Ji^^J 

: JUJI f jjl>l > i^ 

R.S : ifti & Lin) the i : = n 
else if a < Lid then i : = 
else begin i: = I ; 
while a 3= L(.+ nDO 
i: = i+ 1 
end; 
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present: = if i = the false 
else if a = Lin then true 
else false 

ind J ind (A) = ^ ^l=L| o^UM UU- 4^ . ind (A) ^^ij, 
^ o^LLl .A* J t i^ ind(A) «N-lc^ oVU-l Jaii JU-Ljj t (A) = N 
±X ^. Jii 4 A US ^^j . ^^ ^ ind {A) _ , JjUi ^ ^l, ^ 

. 5> N - 2 j| . . . 2, 1. JjLu iJuJ tiU-l 

(dichtonic research) jli^iJl J^>«J| _ 9. l .2 
Lr t 5> N - 2 £,L* ja J ^u^Jl -^ rs ialJ-l JLij ^f^Vl aJLLi" J 

. iiU-l oJLa JLL; sjlo ^yiJiJe- 
jlijiJl ^-*Jl i^, _ 9.1.2.1 






X = 8 



: !*U 



V = 1,3,5, | 6 | 7,8,10,12.14 

1 1 I r 
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. 6 j_pJil iy^y X = 8 jJbJl 8 jV js*i\ p-SJl J i-u, ii-*Jl 



10 



7 8 
I I 



12 4 
I 1 



. 8 < io -yi "^ ^~>Vi j. — ail J I JU O^Jl 
8 

^^p j* Jb Jb jJLl JjJbLl jV i-iij 8 > 7 jV -yrVl (t — iJl J Iju c-*Jl 

^JJl ^cjJI jV JL.O?- JjJi>- ^F J* J-^>^ of Ji i-iL of iJu>«JLl -jSlc 
^>Jl ol£J t 10 JjUj X jJL*Jl ol5 jJ i JjLJl J^ll J . jyi -y^ ojL^jA aip ij^J 

^ a iljpcil cJl£ lil Jjucj 1 i il_pdJ j[ ili>-^c p^U^Jl u2~^ Uj1£»Ij 
a^Lii + njLj^Ujv^SjlpI lil Juillj^-j^i.^U-l ,♦-->■ J L(y)^y>ycs^l lJbJb£ 

: Ja^ulr i 

RDIfa»L ( n)theni: = n 
■ else if a< Lmtheni : = 

else 
Begin i : = l;s: = n; 

Whilea>L ( i+i)DO 

Begin J : = (i + s) div 2; 

While a < L(J) DO 

Begins: = j;j: = (i + s) div 2 END; 

end; 
end; 

present: = if i = then false 
else if a = Lm then true 
else false 
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g JJ Jl JjUJL. jU^/I ,wu jl ■_,£* V : oUJ^I ) t 38.5 Jabu _^bJl Jb-f otf 

: JUI 
ABS(x-y)<Z jf (x>y-T)AND(x<y+T) 

• 2 J* vj 1 ' *>— ill (v^-io "jUi ^Lli piL^, 

J: = (i + s)div2; 

if a < L(j ) then s : = j else i : = j ; 

S iLpdlj , \j i ju sjxJ.1 i» t _iJ| JA^ .L^f- A < L(j) jlS" lil ^! 

kilJi x*j i Nj_ J Oi; (t^~- ^»Jli A > L(j) j!5 lil L.I . N jj>j J i*J J>-L- 

■ N J J U* jvfr- <^>Jlj j wJl i ^-*JL j^UaiVl j^y i»-L- 

: JJU^SI 

j'J <■ y^ i>» ^1 J* iS^z ii>Wl JjJbUlj i^y ^ ^^oJl jl liLU : S2 

j_pj| ^3* v__>.| : S21 

. jj^il y jk+e>\ A^f- (Jl^sJ ^jJl jJbJl jlS" i jl 

. jL-Jl ■j* p^ c^Jl : S211 oil 
j_pJ.I ^ajS\ks- vj^^J ^JJI xbJl olS" lij ': S212 ^1j 
. jLJl -^ (V ^, ij^Jl : S2121 jij 
. a^yaJbJl : S2 122 VI j 

. Ij-Vl «JU-I J^tJj . jjLJl Jill Jl uVl i^*J 
: ^ ( A aaJ a>c~* *&^>. -^s- (iJJl ) j-ijil i»c* ol 1 j j V : *' I 
ind (A) = N - 1 

J*>c~- d->o AjUjp J5 jl 3jJa>- J5 jUjj i [ i. N ] i^^ajl J»-l Jj C-=*Jl jhc 
o^^iJl p ... a . ; .,. . ^1 t [ i, N ] i>wJl J iia~.j i*J ^j t [ i + N ] i*-Jtll -U-LT i 
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j *j>-y> A iJbJl ( j£ i 1 lili 4 ^Jb- J* L~» i=^-j JS J ds>wj Jc>^J Jl [ i, N ] 
SJa_-jJl j^JiJl (^Jb>-I f-ji; -U*j i iJlSs* . oliJl A^t-^aJl J LSU- U_j5\j JjVl i>*— AJl 

J[ SJjJi>- «J_p«x» Jl>oL fji— L* -j-" . A < L(j) itaU^SJl ,J* J~«a>*j JJ« t j 
: aLUII J..».».'>..>"....-j t N iu-ill 4jIju)I J Ji>-tf iJj>u!.l aJL*j t S ^ ?>«Ij^JI 
L(i) =S A s= L (s) 
p — ^ Fr^r" ' S Jl j tjA z -ja Z - Ak-»l_jjj t A < L(j) l$J Oj£j ^1 aJU-I J ib^Jil 

t TAB[ 50] =x jtf lilj . TAB[50] ^*Jl l _ r a^L- 1 JjVl 3U-I j t St, 
jo I .01 IJL» ^^wi i TAB [ 50 ] > x otf lili Nlj i Ll-^J Lol I JL* Lf ->*i 
U ^ "il i TAB [ 50 ] < x jl* lilj . 50 Jl 1 j, i^Jill j o>Jl ^^ bjJ 

. 100 Jl 50 j* JUJLI J cu^Jl ^j- 

: gtli^Jl 
CONSTN = 100; 

X = 38.5; 
VAR INT, SUP, IT : INTEGER; 
TROUVE : BOOLEAN; 
TAB: ARRAY [ l..N]OFREAL; 

INF: 1; 

SUP: N; 

TROUVE : FALSE; 

REPEAT 

IT : = (INF + SUP) DIV2; ( SJbJbU ijjJ-\ ) 

IF (TAB [ IT ] > x - 0.0001) AND ( TAB [ IT ] < x + 0.0001) 

THEN TROUVE : = TRUE 

ELSE 
IF [ IT ] < X THEN INF : = IT + 1 
ELSE SUP : = IT - 1 
UNTIL TROUVE OR (INF > SUP); 
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TRI jy)\ . 8.2 
j\ oLk*ll jt olj«Jl ^M i\£\j UL^oS > fjZ LL* J. j^i)| ix^ 

. 4^*j> i^j^jf- J^b ja oLJLSUl (5-1^-1 
. oUy i>^wi!l jIopVi j- JjJ^ J^b -^^Vl ^Jl a»-r : ^i. 

(Shell metode) JJ i*,^ 3yill _ 8.2.1 

. oOjpJ^- ijlia aJL*^ *l_rr! r»^i t ijliLl 

ii> JUol ^i— . j^^i Jjlo^JJ i_JU iJUiJl ic_u- ^ Ai^yi e Ju> 

. Shell aa,^ jl «Shell Sort» J-i iijs ^ jjiii sjujl,- 

1 u-Oj^J . 1 yi j ^jL, jJw» LSbjA ibLil ^bJl Jy (ecart) juJI djS j 
J Q^. jl v^j . ilaJl i- J j j±.| ^Jj Jy> ^M\ J ^ a ^i\ jL t f^.Vl iJU-l 
*Jttj Jj oi-l 1 1* j^j J ^auJ| i j* j^ f ^ v JUL; . j^i]| ju, J^jJLl ^ 
JaLu laLuf LLUI M IS J Lu, . J^ a^ „ - lj «, S,U, U»* n - 1 J^ N( 

■ Ji-V J^J ^M* J-Up Jl ^-U^ ikj , n/2 

n/2 j^L*. .itt; ^JJI JjVl juJI . jbuVl oJi* ^^wi Jp pa ^Ji jooj t aJjUlI 
Cr^- <i^ «y J 5 " J 2 Jp -uJl IIa ^^io pax- ^Jjj j^^ t ( JjaJLl ,*>*>- = n ) 

. JL>-ljJ VjU. JUJI 

ijlill ^L->- 1 oUUilL i j^iJl U»* AjAj plu- U ii^j o*JJ ^ JS3 
iUl ji. Oj^l- U**Jl b JLa ^_^.j t TAB [ I + ECART ]j TAB [ I ] 0^ ^ 

. ECART J*- <iL>- j^o-w* 
Jp _jX^ JJ ii^Ja JUjC-L ^JU-Udl ^J^Jl v_ — >- j^ill jy.1;^ Ia5> 

: JtJl J5^JI 
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PROGRAM SHELL; 

CONST NB = 50; { ^Ul Mp } 

VARECH; 

ECART. 

1 : INTEGER; 

TAB : ARRAY [ 1 .. NB ] OF INTEGER; 

PROCEDURE ECHAN GE: 
VARX: INTEGER; 
BEGIN 

X : = TAB [ I ] ; 

TAB [ I ] : = TAB [ I + ECART ] ; 

TAB [ I + ECART ] : = X 

EN °: { cUdl ^ } 

BEGIN 

WRITELN (TABLE NON CLASSE'); 
FOR I : = 1 TO NB DO 
BEGIN 
READ (TAB [ I ] ); 
WRITE (TAB [ I ] : 5) 
END: 

WRITELN ; WRITELN; 
{ start of tri } 
ECART: = NB; 

REPEAT {ECARTaluVl^a^J^aU-l} 

ECART: = ECART DIV 2; 
REPEAT 
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ECH = 0; 

FOR 1 : = I TO NB - ECART DO 
BEGIN 
IF[I]>TAB[I + ECART] 
THEN BEGIN 
ECH:= 1; 
ECHANGE 
END 
END 

UNTIL ECH = 
UNTIL ECART = 1; 
WRITELN ("TAB LEAVCLASSE'); 
FOR I : = 1 TO NB DO 

WRITE (TAB [ I ] (: 5); 

jU^I *i^*Jl i& jb Jp oLaJa; . E8.3 

= >' 

. ^>w» X'=S A< f\ 4- l)-' 
jJl i =S x 2 *S A iiLLl J**^. ^JJI t Rl £.1; Jl spU. r >^-J La v> 

■ t ^ ' A ] J> 1 ^- l*-^i^ f^-L» 
R1:X: = (); 

While (x + I)f2sSaDOx: = x+l 



' J' ^l^U c V~~A -j* spL. ^1 i»J Ji^U j! *pk-_; d i«J iJL* jtf 



bl 



jliyUl Ju>^Jl J ^JlI iiijl 



x = J i^JL d jz^> ) x =S [ V^~A ] < d J5LL, t <d JuJjJl _.L^-b f^i— 
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.[d 

J_p J^«J Ua -y . d - x = 1 : U, jj_S^ Ujlp pjo iaLLl -y, rj^l 

R: : x : = 0; 

While d - x > 1 DO 

BEGIN 
J :(x + d)div2; 
if j t 2 > a then d : = j 
else x : = j 
end 

(Sort by segmentation) *iy*&> jjii\ _ 8.4 
j>*lfjj»j*-- 8.4.1 

W SiU i v£» ^^-» ^ l> i5>* A( 1 : :N) oj> ^iUl J jJb L| j| ^^iJ 

i ol^SjU, ^U|| J^i JJ>.>- . j ^ Nj i ^ 1 e^, j, i oipju i>.tJ 

. A(i::j)JtJljSOLJl Jpjj 
j>Jl jSij, . « A(inf:sup) J, jj-l j^j , : p i n f, sup flLil ^jJci o% 

: JLJI Jbdl ^-Jdl Jp Sj^jJi, 
J»-lj j*** Jp ^ jf (pjU -j^L- A(inf::sup) JjjJLls t i n f 5= sup jtf SI _ I 

. inf < sup jlS ljj_«_j 

J& : Ju-^ i ^J* Ji J-^ ^ A(inf::sup) JjjJ-l ^Up J^ foj _ I 
i < m ^ t m JS^j t A(l) > A(i) > J^j t inf > | < j t i jo^^j, 
■ . k *uJl <k,|^ A(i) i^iJl J| jj^. . A(i) ^ A (m) > J^j t sup 
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,«k 


k 


k=*. 


inf 


i 


, 



sup 



A(inf::sup) Jj-A^-I Zjf- : ^JU iU-jLl eJU& 
i %js*d\ jlujj . k J itaU* A(i) ^ijJl <*J ij£ou» t j^l JjJ^r' J - 2 
. I j_j^A» Jj-A^-I f c r" a ^ P i + " » supj P inf, i — 1 Jc3uil J>« *yi» Ob t/*^; 

: JtJl j^Ll d^-Nl J* J^J Hy^i\ .a* ,>• 
Procedure IRI ( Integer Value inf, sup); 
If inf < sup then 

Segmentation (inf, sup, i); 
tri (inf, i - 1); tri (i + l,sup) 
end 



i'_)>cJl *\^r\ iUS"- 8.4.1.1 

J--1I \>s-±S\ . (inf < sup) A (inf::sup) JjJbU J_p 4i>«Jl *l>>-i J-^i 



.*k 


k 


k=S. 


inf 


1, 


i 



sup 



JjjJLl jA* ^J> ja K 4^211 J\yZ* JSL^j jL^-l t I il &ISU; . A(inf::sup) 
. tf>>dl (PIVOT) i jlJU i L.JJI .1* ^Ja . Sj^Jl JJ iHJij A(inf::sup) 

. k = A(inf) i»-L-. 
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,«k 




k=£. 


inf 


■V ni 



sup 



: $ 
(inf *S I *£ sup) and (inf =£ j < I -» 
(A, J) =s k)) and (m< j =S sup-» (A(J) ^ k)) 

: ?yU^Jl y iiL>- l _.'.'C , „U i J^LJl cAX»s- *j& Jlj^V 
(l)WhilelsSmDO 

if A(l) s= k then 1 : = k then 1 : = I + 1 
else Begin 

While (A (m) > k) and (1 < m) DO 
m : = m — 1; 
A(l) : = : A(m); 
m: = m — 1 
end 

4 k = A(inf) Uj^l LJV A(m) < K jU>-Ml iL_J^ 2 iiU-l ^Jaj p_ 

. I>m J* ULas- 

jil i A(I) s£ k J_e- J-*i>J i A(m)j A(l) J^L' Jljuj t lS^' <-£>- J* 

. (1 = 1 + 1) j>-I_j 1 i*J ju^ ji biplkr^L 

; jjb <2jL>JJ J^—ll J»j-iJl 



inf 



i«k 



k*. 



t I 

m I 



sup 
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. A(m)_, A(inf) ^1 JjulJ jl J&, , Zy^U j^J] J^iJi J* J^^J 

procedure segmentation (integer value inf, sup: integer variable m); 

Begin integer!, k; 

1: = inf + 1 ; m: = sup; k : = A (inf); 
while l^mDO 
ifA(l)=£kthenl: = 1 + 1 

elseA(l)=skthenl: = l + 1 
else Begin 
while A(m) > k DO m = m - 1 ; 
if I < m then 
Begin 

A(l): = :A(m); 
im: = m — 1; 
1: = 1 + 1 
end. 
end; 

(A(m) : = : A(inf) 
end. 
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^UJI Jsoii! 



(files) o!>U~Jl 



: v_iyo - 10.1 

£\y i*y>fi- J_£jJ i*j^l\ . A* t P ot--- ViV V~^ ^-^J Si ^»il iPj^Jll - 

. JLdl J^JI 



^^J-* 



'j-*J5" 




o51 ^' ^ **-^* ^ *& ' L »^^J L^^ J^-Jl J *>Jl ol^Ull 



record 



4jL>&_J 



(file)J^, 



type personne = struct 
name : chain 20; 
adress : chain 40; 



** 
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married : boolean; 
sons: integer; 
END; 



ja y-HL t (personne) y^J^ ^ jj ^sj> (type) £y ^yc, Ll* pi— 
ja iL-L- ) (adress) « jly^ » -^ t ( (char) i^- 20 -^ UJL, ) (name) ( ^-1 ■ 
g J*L» » ^j; (boolean) i^ SJ^hi. ^ c ( JtfVl J* (character) iw 40 
. (sons) « jVjVI » jOp J* Jjl, ^»w» iJLP ^»j t (married) 

: ^ t (fields) Jj_i>- <_*,_,£ J_p ^^-^ (personne) l _ r a^li\ <j| J_^-5i 
Jj-**-' •-*-* -^1 (^J jW^Xj • «sons» t «married» t «adress» t «name» 

«name of variable* . «name of field* 

: ^ 

: v_^So- i «personne» £jj -j* iJ^^L. ^ pers 4-Jj^dJ cJl—S" lil 

i pers. adress t pers.name 
i pers. sons . pers. married 
. pers ISJ>\ H_pdil oJla cj^^u jl <3y&- ^_iki j-jJU 

o:*»t-Jl JLjc^-J J i^U- j^U; _ 10.2 

. tj^l ^yizJl J^Jt ^ : f + _ 
. u\j*U J\J\ ^tJi J>^J| ^j : f- _ 

. (endoffile)eof J^-Jl ajV 
. Jj>« — II il^ UiL il true i»J5jl JLsCU eof 
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reread (file name) 

J j»wJl j, JjVl ^*Jl i|»-lj* J U£)l / "1^1 ^j V Oj^i J^ Jsu^Jl 
. (Buffer zone) *^jlall J-?- ^Jb ifAJl (work jone) J^jJl jj>. J 

gef (file name) 

rewrite (file name) 

put (file name) 

. J»*~Jl Itif. J Ij-S^ etl^ill ^Ij o\S lil'Nl ^aoJl lift J.«,.iC»J of ^S *V 

. eof = true : ^t 

: JLJI JSLtJl Jf. jJLi^Vl IIa Jyb 

. J^JI +\+ SjLil J* ibSai ^f, JjSjJ p. J , £> Jaj^iJl f k-_ 
. true Ju-jiJl eof il.pwJ.1 i^b t ^.Vl li* JL& JOu _ 

: *JL^ 

. m>y Jp J^>J t vyGf ^^^11 «, m£f 4 mUll^^J 

. maximal jl ^j-aaII i*-iJl ,^-Aj i«J IJK* 

procedure maximum (df : file of t; r max: t); 

specifications { f =<>}-*{ max 6 f, max > f) } 
Begin 
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reread (f);{eof(f)} 
max : = f ; 
get(f);{max6f, maxSif } 

while NOT eof(f) DO 

Begin 

if max : = f ; 

get(f) 

{ max 6 f , max > f } 

end 

{ (eof (f), max 6 , max 2= f ) -» (max 6 f, max 5= f)} 
end; 

(function) 4b JSLi Jp •l^r'ill li* it5 LaJ j£JLI -^ 
function maxi (df : file oft ) : t; 

specifications { f = <> } _» { max 6 f , maxi 3= f J 
var max: t; 
Begin 

reread (f); max : = f; get (f); 
while NOT eof (f) DO 
Begin 
if max < f then 

max : = f 

get (f) 
end; 

maxi : = max 
end; 



i>* aLJ — Zj> a* jl i (char) ^ y,j £j y, t ^>^ t j&^ y, t ^yj| 

. (chain of char) oL ll 
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JISL.I 4*L o">U~JI &> Qj«td\ - 10.3 

VAR ARTICLE : TYPE ARTICLE; 

F1CH1ER1 : FILE OF TYPE ARTICLE; 

ja i*_&J ills, ^ SjLp 4 FICHIER 1 ^L=* J^— 'er-^' ^ ^J 
^wijll Oli » i*l* ^» ytdl jVj . TYPARTICLE ^J ^ pUiVl _jt ^Ijil 

. file of file : _; ,<4— j L« jl o^Uw f-jJ ^« o^Uw -_jP SjLp Oj£> jiSj 

FILE oU-Jl j* &"$£*** jf- SjLp oM>«-Jl j _>& t ol~»-Vl _^£l J <. ^ij 
d-> FILE OF TYPEARTICLE Jy^ £j-5 ^ o^_*w jf t OF CHAR 

. i-** (record) aL>-J ■jp SjLp TYPEARTICLE 

^aul! ^J, t ( FILE @ jf ) FILE f J->- Jl ,>■ gjJLU ^ a ^ t e/^- 
. (record) <L>«~Jl *\js>\ Jp opUJl o/IjlJI J ^jlJdl i_j^-jw jj* FILE f 
. (Buffer) p^jljJl Oij ^^V^jjjjaJt JaLJl Jp *yb c/5k>~Jl Jp «jj jJI oLLj<JI 

. J>— JU JiUl (peripherique) ,Ja~»«il jLgJrlj 

. iw^i jl l ^£ i *(_5jl jJl &-«J 

FILE f : = ARTICLE; 

. J^Jl ja iL>wJ jl j^s- j* SjLp ARTICLE ^>- 
: t_s^J jl -jSCr i ( u\jii\ juj ) (.^jl ail JU*=~.\j 
ARTICLE : = FILE f 

. J^-Jl US'. 10.4 

; aJx^iI^j ^ l^m^JI *LiJl 

REWRITE (FILE1); 

: ^-^ dUi Jbuj t J^-JI ilJb j-^jj *UjVI IJla 

FILE 1 t : = ARTICLE; 
PUT (FILE 1); 
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J J\=* JS^i ARTICLE oU>ll J o^^U-.-JI ^s& oUJLdl .JU 

■>-» 
: ^i^Jl *l^/l JU,c-,L Oy'j^Vl >>.-,l..Jl ^ -^ 
WRITE (FILE 1, ARTICLE); 

JU1I ^Jl o^X of v£ . FILE t ^jUUl Sjbl ^U" J! ^j, U 
• uN— 11 l?-^ 1 t-^ 1 & Wl-» f l 5 ^ ( ^^ V^ ^ ^*i>*J ) ARTICLE 

J**~Jl U\J - 10.5 
: JUI ^i^l .1^1 *l^ Xjf v_^ 
Reset (file 1) 

Jl J_,Vl ^oJl JU-jlj j^ji olju Jl s^Ji ji .i^vi lJu> ^35, 

: oUJ*xJl y. iLA^. ik-,1^ lt\jd\ oLJU* ^ t dUi juj . .^jljJl 
ARTICLE : = FILE It; 
, GET (FILE 1); 

. (Buffer) ^ jlaJl Jl S-ljiJl ^fj f Uf j^l ^jJl JUjI Jl GET ^JJ 

ARTICLE — FILE I; 
GET (FI LEI); 

GET 4_J*~ Oyl^ 'Lib Oj£ of ^ 4 i.1^1 jc* 4 ^f ij^j ^f 
^Li^L ^ f UVl JI (02JI II* . RESET J So^ll GET ^ .Jl*j " t jj^lj 

. ,_}**~Jl 4jL^ 

EOF(FILE 1 f ) iakll ajlj t ^^ FILE 1 f 0j X_ t iWJl ^ J 



TRUE ijiJb- — ; ^7 



£jj JlJ_x-,l ^ t i^UXU i_JL^ LJj t ^_.Vi ^ 

: JUI ^i^Jl .1^1 JUjU 4 GET...; j ARTICLE:^...; 
READ (FILE 1, ARTICLE); 
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: yi» . iJt=* oLk~ 5JL& Jp ji' J' j 5 ^ WRITE; READ jl Jl Jdi 
READ ( FILE. ARTICLE 1, ARTICLE2. ARTICLE3): 

aU/^l «J0cLl JjlJbLl jl «, JjIjO-I Jjla»-_ 10.6 
(multi jUjVi S^Juil JjljJLl jt. J/ J15L-L. iiJ jls t o'bU^-Jl Jl «Ui| 

. record f-jJlj dimension array) 

\-a>*j Lft •yi . JjJL>- -jp ojLp 4...a".; j_j£; jl 'jS^C JjJL^JLl ~"L*Vl f-_jJl 

type VECTOR = ARRAY [ 1 „N ] OF REAL; 
MATRICE = ARRAY [ I.. N ] OF VECTOR: 
Var V : VECTOR; 
M: MATRICE: 

: ik-il^j MATRICE iiyLoll j^x's- Jp i_iycj jl ■_ r Slc 
M[l][J]:=3: 

<± j -k * A\ y M(J) *>«al I JL* ^Lp i_iJu; . (Vector) 4>*j^ jp SjL-p : M _ 
Jja»- jp SjLp ojjJL; L^i joue- J£ c-?- t Var ~&u*\y L^p >- j-^ail MATRICE 

: ^_^£ jl til LJl£.L . VECTOR JjlaJLi -^ 
M[J]:=V: 
: JbJl JSLiJl Jp ^ Jj! jj-l J_jo>- jp t^^J 1 jli <. (U J£ii_. 
TYPE identificator = ARRAY [ I ..N ] OF type; 

identificator 1 = ARRAY [ L.N ] OF identificator 
Var V : identificator 
M : identificator 1 

• type £>Jl y j^t. N ja J_,a>. jp 5jU : TYPE £>Jl _ 
jl ^1 i identificator ^Jl j, ^^p N j, Jj a>- j* SjU : identificator 1 £yjl _ 
■ Type ^1 j. ^^p N j, J_,a>- jp SjUy* J,juU la* j* >r ^p JS 

. identificator f^Jl y. i)^ jjj t Var UKJl a*, LiP £^11 \' iJ^dl _ 
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j^Iju J j j*. j* SjU ^i jUUj 4 identificator 1 ^Jl j- ^ : M iJ^dLl . 

. type gjl\ -^ J,|j^ L^lj o^ jjjj 

: iL-1* t ^Vl o-udl JjloJLl -^ C _^J| Uf ^^j, ^ 
TYPE X = ARRAY [ S ] OF ARRAY [ S ] OF ARRAY [ S ] : 

: JUI JSLUI > a^i ^ ^^ L^f :jSUl ^ 
TYPE MATRICE = ARRAY [ 1..N, 1..N ] OF REAL; 

: aJL~j 
. C = A x B 3^,11 ^_>^ t Bj A oU^Ull ^jjd 

A-[1..N;I..N] : . !U 

B = [ 1..N. 1..N] " "■ 

^A.C[I..NJ..N]^t ! Ca^^! J U^| rt .^ i!l!= i 

PROGRAM PRODM A; 
CONST N= 10; 

TYPE MATRICE = ARRAY [ 1..N, 1..N ] OF REAL: 
VARA. B.C: MATRICE; 
LJ.K: 1..N; 
BEGIN 
FOR I : = I TO N DO 
FORJ: = I TON DO 
BEGIN 
C[ I, J ] ; =().()-. 
FOR K : = 1 TO N DO 

C [ L J ] : - C [ I. J ] + A [ I. K ] x B [ K, J ] 
END 
END. 
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(record type) ^.L-h.^ * jJl _ 10.7 
. Jb-I_j ^J c^ ?-jJl ^j~jj ^ja ^LnJ! tf n jjlp /<-***J *i~-_jJl _>■* Jj-^-l 

. "o-ljjl ♦-.'ill ^^jU C-^j Jb-lj ^jji j iaJbat f-l _jJI -j>i ^bJl a-*^ jLa-Vl ^^iiu 

a^dl ^ ilj»dl |»-i 0L.JW1 



numero 


NUMERO 




^y.^ t^j 


nom 


NOM 




byj\ p-1 


adresse 


ADRESSE 




O^J^Jl 0\y* 


code postal 


CPVILLE 




Jj^JljjS 


representation 


NUMREP 




*Uii ^JJI JJLdl 


remise 


REMISE 




j^~s- <J jtS lil 


chiffre d'affaires 


CAPREC 


AAjLJI 


oljl — II J *LkP -ij 


nouvelle chiffre d*affaire 


CA COURS 


iJU-l il-Jl j <d»* Jij 



* IJL£* . RECORD ^JL, JISL-L, iiJ £ju£ t olyl«ll oJLa ^UaJ 

TYPE CLI ENT = RECORD 

NUMERO INTEGER; 

PACKED ARRAY [ I.. 10 ] OF CHAR; 
PACKED ARRAY [ 1..30 ] OF CHAR; 
PACKED ARRAY [ I . . 20 ] OF CHAR; 
INTEGER; 
BOOLEAN; 

REAL; 
REAL; 



NOM 

ADRESSE 

CPVILLE 

NUM REP 

REMISE 

CAPREC 

CA COURS 



END. 
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J , CLIENT Lj J\ j, ^\Sj t CLI iL^ll ^ c > jf lij oSUL , ^ 

. RECORD ^Jl J Sij ^| oUj JUU ^Z > ^ 

VARCLI.CLIENT; 

: JUI j£jj| Jp CLI ^ ^ J ^j oJ jisc^ljj 
CLI.NOM: = « DUPONTuljl4»; 

: ^i- 

IF CLI. REMISE THEN.. 

JXUI J* RECORD o^U^Jl ^ J^ ^ ^ ^^j, -^^ 
s-J^! LiT lib t CLIENT jJL^L, ^L=L| RECORD ^_Jl ^^ : JUJl 
: JUI JCiJl Jp ^ Jilii t CLIENT ^L*Jl ^ J j j^ jc ^^L 

TYPE ENTREPRISE = VAR [ 1..50 ] OF CLIENT; 
VARE1:ENTREPRISE; 

«-*r-iJl J* a-* 1 -^ 1 ^>U J-~Jl ^j Oj-S^- c ^.^xJl IJuk ^_^ 

: y* EI (ENTREPRISE) 
El [5] . .CACOURS 
: dj&r" ■ ^r-U-l OyJ\ IJL* ^1 j, JjVl vjjj-lj, 
El [5] . NOM[ 1 ] 

WlTH^JLdl> 10.7.1 

CLI.NUMERO: = ... 
CLI. NOM : = .... 
CLI . ADRESSE : = .... 
CLI .... 

J! SjLitjUj 4 ( ^[ ^^ J J j CLI jljSi ^Uo £^- WITH i^JUdli 

: oio jl « ; k: ..... l iLLJl CjUjLJlI 
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WITH CLI DO 
BEGIN 

NUMERO:= 
NOM: = ... 



END: 



. o-liyw SJ* j^l i RECORD -yi oljji-o 50p LjJ JL>-jj ^Jl iJU-| Jj 

: &. 
ENTREPRISE. USING. SERVICE . CLI . NOM : = ... 

: Jj U i^s& jl L^-lkuwLi 

WITH ENTREPRISE, USINE , SERVICE , CLI DO 
BEGIN 
NOM : = 
END; 

JISL-L iil J oU-Jl J-^L. - 10.8 
-(alphanumeric) ija_«j«Vl jj^Jl -^ oUj^f ^ ol—Jl J^^U uiJb 

j£Jj i Read Ji\ J ^^Jj^ oUJl j, <JUl- j, iiJjll ij^i iljpdJ i^ 

for i : = 1 TON do 
read fV [ i ] ) 

: JUI 
Var V : packed array [ 1 ..N ] of char; 
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procedure read chain (Var x: packed array [ I .. max : integer ] of char) 

Label I : 
Var car : integer: 
begin 

for car : 1 TO max do 
if eof then begin 

writeln ('eof while the chain is readen") 
go to label 1 
end 
else 
read (X [ car ] ): 
Label 1 : end; 



130 



J.I.I'. I.. '.IJHI.IJ.LI.il J Hi J.I I. I„l.' 1 1. 1 l .l .lll .'.l., i|. '. II l.l.Tl 



^LM Ju^j 



(Applications) oU.JaJ 



: iJL-_ii.i 

. SO^Ij ^ J LEBANON USUI l^i JfcJj ^Jl oljl *A* ^-^1 

i 

j\ io^lj ik-ljj l^.^ ^ iLsaiil oUKJl j* ^JL. -_,p SjU ^ iLJLl 

• ( ^J ) JO -U—Jli iU^Ll t _^rJ . oli-lji ; Op 

H=r Cr 4 hj^^j <■ *it£»ll iJb»oVl oU-Jl ja apj-^ -j*. SjU ,_,» ij£]| 

. &* J (Space) j>-\ Qj ik-l^j -j^JIj ^|ji Jk^ jLJl 

*U- J5^ ( tape i disk JU^I jl^ jf jL,^Ul JiUl J* aJL^I ^ 
^-G i>j il^c J^.|a, JljJl J* <UUI .Ju ^L*. J^'j ^ t oL~Jl ^ 

. carcour 

^ *UA-I : iWJ jA r _jb i U ^ aULI ^ Oli * ^XJI Jpj 
SjU oU&lj c oUI> Jk-,1^ l^ ^ AJ^^ili oUJl ^ UJL. ^ SjLp 
fc>-Al Jp J^J t U» ,y . JpUJIj £\jti\ ^p iibiJi oU-Jl j, J^-^U -^ 

. <■ Jjl>*U JjVl 
Begin 

car blanc is " , car marq '.' 

intlgis7; { l^ Ju^J ji\ ijfll J^, } 

[ 1: lg ] char word is ('L\ 'B', 'A', 'N', 'O', 'N'); 

Var car car cour init read car; 
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{ *JUi-l <Jiiy jjjl oU. Jl iLJ— jys-j *^-*>Jl» U ?m—J car cour aJ^>cLI } 
i { JjVl iJ^Jl -^ J_jVl i«-Jl JjL«J ji iiai jl f-lji = carcour iJ_pcLl } 

TO end of sentence DO 

{ JjVl iJ5Jl j^ JjVl i»-Jl jf iki j\ y-ly = carcour 4J,pdl } 
While carcour = marq sort by end of sentence; 

{ i»I£Jl j* JjVl i»-*Jl = carcour } 
treat word 
continue 

{ ikii j\ fly = carcour } 
results 
END 

. JiUl ■>• lt=*L» -^ <^*-«-Jl l-5:»J jjJl *ij>J\ a1js»A\ ^ carcour aJ^xII _ 
. LEBANON Ju«SJl ilxJl J j>-tj t L^ £^*J ^Jl i*Kl! ji/ word iljpcil _ 
iiiiJl ^jju ^1 marq iJj>dil jf-j <, blank *-""^ (' ') f-lj* il^dl jf- >-Jy^ - 

i«-Jl JL^frj t char ijyj L^| J_p carcour ^,y^\ aJ_p^1I <j* ~j~oxll &/?: - 

. i'j* IS j read car Sej^l 

. AL»i-l il^ i^uj end of sentence _ 

. UoUlj Lgji^ JL«j l^ d-a*J jJl i<J£Jl ii-Ui f-\y>A ^j treat word _ 

CjUISHJ iJU^liJl oU-ljiJl Jjji j"J^ f"-~ i i^-^' pj'_>^~' v-^1 - ^ 
Proc Saut blancs is 
Begin 

{ JjVl a*KJI ja JjVl iwJl jl ilai; jl £l> = carcour } 
TO end of blancs DO 

while carcour = blanc sort by end of blancs; 
carcour : = read car 
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continue 

{ JjVl i*KJl j» JjVl i»~Jl _jl ilaSJ = carcour } 
end; 

TION <-ij>-Vli (j j|U ^Jlj j-wal^l Jb-I J 3jj>-jII oLJ£Jl jjlp ,_ ^| . 3 

. TION _■ \#±\ JJUt; ^^1 ^Vl ju, Sjl^Ij oLJ£Jl i^ljj, ^f 

U-Uil ; S2 

i a 

. oUS J^'j* iPj^Jil U-Ijw : S21 

. iU£Jl J JULJl J»-U J^JI : S 21 1 
. ^ iU£Jl ^ ^ UU» 
. iLJUl U jl^j Ijj ; S2I1I 
( iULJl aIp ) iLJUl v_^^l : S 21 1 1 1 jil 
. iJ&Jl ilji Jl ^p| 

. JLJl^J>-l JI^J ; S2lll2Vb 
. iJUl ^KJl Jl ^1 
. iJUl ip^i Jl ^| 

Write «number of words finished by TION» 

{ TION H i^dl cAJfll i jl* ^ I } 

{ U.U1I ^^ } 
Var chain word [ 26 ] : char 

{ \ij>- 26 J^, ^ ^^.UJI J J>Vl iJ£Jl } 
Var counter : integer init 0; 
Begin { counter = } 
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IN = Word rang "AAAAAAAA" 

{ ZYTHUM j> ^J6\ ^UJI j, S^Vl iO£Jl } 
While = word (1.6) < "ZYTHUM" Repeat' 

rcad # word { S^l ^VL SJbJLr ^ \J\ } 

end word : = I 

while (end word < = 26) and ( # word (end word. 1 ) <> " ") Repeat 

If # word (end word - 4. 4) = «TION» 
Then S 212 : Counter = Counter + 1 

ELSE 

end 
end 
553 { writing of result } 

write { " number of words finished by TION = " } 

COUNTER 
end; 
end. 



AUTI : ^ s? J J _i_)| ^^UUi J j^Vl <-__..L_£Jl - 1 
■ l»j»- 26 ja UA\Zj CONSTITUTIONNELLEMENT 
• ( P etit mhert o*rU\ ft-lj ) ZYTHUM ^ ^^.UJl ^ s^Vl iJSJl _ v 

. ol^ly iiu-ljj l^Juu je- oLI£Jl JuaiJ _ r- 

JjSL-iUSJl J> J^U-^j t £4> Jjf ^1, j^ oUKII ^i* ( vL^j )^ 
. «TION» ^ s^Vl >_i^l i^jVl S,U, jSUil j, 

: 4U.-...J.I o\p«=U 
26 yj ^1 JjUli <i>^II <)>>vJlI ^ ^,^-iJl : Chain word _ 
• ^*^' lH-^ oU_JI Jp Jo. ^j^ je- SjU : end word _ 
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JJ J *uJ a bjy . TION _, ^ jJl oLKJl jo* Jp ^^rf. :>|jp : counter 

. TION., ^ kJS [& J& ^ 

: oL- iujt *IjjJI jlj oUKJl ilfi ■y fju ^>j| 
if # word (end word -4,4) = «TION» 

4 Jjkjj 4 ^U end word ^i)il ^f 

| 4 : "Au 

AAAAlAAAA 
end word — 4 
. Counter jIjuJI i*J Sal j ^^ TION U£il JcL Ujup 

counter = counter + 1 

read # word 
^Vj-?" ^ J i^ <■ oU-Jl -y JUL- l^J Jp word iJSJl jp ju^l _ 

Var chain word (26) 

. ^L-UiL s. jjl ^aJ _ S { prossing } _ 

•le-t t ^LJI Jp jx oL^Jl JUL. •_,, .^JL JUi j* 5jU ^ SjjiLUl 

^LJL ^l*. f-jj t j^L ^U ^i, , tfyJL ^ ^Jj pJi Jp 6jj.j 

facture for client from 1 to nbcl. 
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Ifiji ^ <iiiSi «, j^jJL Ijbl oUUj N ^jbJlj TVA L ij ^i\ i*J jl Uj 
oLjiwi o"^i f3jl_p- Jp J-a>J b* ■y . SjyUJJ ^L-Vl ^*Jl J 
jl ) OjijJl ^S-* . ( jpljill jlx^L ^ULl i.jd-1 jj^. J|^_ ) ^^Ji ^^i : 
i$j=-" ■ Oj-.Jl i*UU oL^LU, jJLs. j. — «ll I Ia 4 ( djijl i^UU 5jyUJ| 
£L1I 1 l^ hJlA\ i*£l\ t U^ «, ULJI jp oU,JU. Jp ^^at, ijikll -ULJl 

. iJL* L. Jl i*JL- JS3 JLsrVl 

ijjte\\ -jj ^L-Vl ,+, all 

• ^y.^ jy'y **j~^ Cr* tj^ 1 ^^i : (u^) ^^ - 
. ^jjLjJI aJp Jl __rvJLj ( £^w iJp ) nbcl _ 

. jjj j JS3 TVA ( jJLis- jJLp ) i»J _ 

: iWj" jT^*^' fJJ^ 
data = data ('DATE:') 

nbcl = data 

taux = data ('taux de la TVA:') 

result = facture forclient from 1 to nbcl. 

jIjl_^I ^Jij t ^JLil , jjL jjl jOp t ^jdl : lil ^ U*M Jl oU^Uil 

■ nbcI J! l u* ^y.j J^ 1 ^* 51 

j^j <Cjt« io^ "W*j 0i** tkj^ <j <■ nbcl J1 1 ^y> Ojij J£J SjyUJl *£-\~** 

: JtJl J£iJ! J* 

. iJLJl ol^Ul Jp ijjrtiJl tfjd . ilLil JJ^. _ 1 

■ ^y.j>\ u* oU^jc-I : ( Text ^ ) 1 JL..JI _ 

. ^jLJl : ( Text ^ ) 2 >-Jl _ 

. (en-tete) i*JLJl je- oU^U. : ( text ,yC ) 3 ^k-Jl _ 

. iJ— J£J ^k- 1 ( ^ ) ( JuJL i>JN _ 
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J£J aJU-NI U-«JI IfC >- JS J* v^- ' >-^' 0* **.>**■ '• (a*) reca P - 

: ^ <JL»jcuJlI oVpcil 

. o jij^II iljl* (i—l : ( >^->l»->- aJUL. ) nom _ 

j^_)^Jl ^1 : ( oLw iJLJL- ) pronom _ 

• ^Mj 1 ^ p*J ■ ( T^ hL ^ > iJ ^ ) num - 
. Lj Lt)l r -l:(oU-.iL-L-)rue- 

. ij Jill |^oi[ : ( oL— iLJL< ) ville _ 

. ijilall 4-*S3l c aUL- : ( g>~*> jJLp ) NUP_ 

. ;jb-jpl y«—> <, iLJL. : ( ( _/* s a>- jju- ) PV _ 

. *~ijj> dj-ij yuJl t iLJLw- : ( i J>*J&- ^JLp ) PHT _ 

. aJLJI i-ip : ( ?*~>w j)Jlp ) N _ 

. i^ jjJU i-yllilJ Jls^l £JJLI : ( JLJb- j-Lp ) THT_ 

. TVA ;uJ jf v.^Jl : ( JLS?- ^JLp ) TAXE _ 

. .wJl^l *^ 4J Ir Jli^l ^Lil j\ s^UJl i»J : ( Juu>- :>•** ) TTC _ 

. sj^jJI^ : PRIXV. 
. L>jJ> djdjj^J\ : PRIXHT. 

facture = line 1 To line line 2 to line line 3 
To line list of products to line recap 

: JjVl ayidt J*Ji\ Jp Ss-JjJl aJVJI oU^JlI > ^j^i Sj^Ulli : IJ5U. 

1- Nom, prenom, numr, rue, ville = data 
(nom, prenon, numero, rue, ville:') 

2- N = data ('nombre d'articles commandes: 1 ) 
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3- ligne 1 = write nom, prenom, numer. ville 

4- ligne 2 = write date 

5- ligne 3 = write* NUMERO produit QUANTITE PRIX U. PRIX I IT" 

6- list of products = write NUP, Q, PV, PHT on line 

for prod from 1 TON 
PHT = Q x PV 

7- TAXE = THT * TAUX 
8« TTC = THT + TAXE 

9- recap = write TOTAL HORS TAXE' , THT 

WRITE »T.V.A\ TAXE 
write TOTAL. T.T.C". TTC 

10- THT = SUM of PHT For prod from 1 TO N 

: ik^--^ 
v-^-ljJl oUUjJI J L^ v-jHjJI v^UKJl jic* IfJ. j iLil oLAxJl 

: JLJI JSwJl (J* (prix hors taxe) PHT o j-itll jj Jb jr *~Jl t ixJLJi ^^, . i..*5 

NUP, Q, PU = data ('numerodu produit, quantile. prix unitairc: *) 
PHT = Q x PV 

Jc- J-s-aix. J£-i> 4_J^« jj-^J jl -jS^C £»U^I ^ V-^ 1 fl~-*Vli 1 J5^a 

: JtJl j£jJl 

1 j. i*L- j£i ^JUi 2im (facture) = ]( 

^ (products, ^^j,, 

(nbcl) 
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j* fyfoySj *UJ| f jjljjM 




nbcl,taux,data 

I 



client jjjj 



product i*JL 



nup,q, pv.PHT 



recap iJlil 





NO 



NO 
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: JlSL-L iili ^U^l 

PROGRAM FACTUR MUL; 

VAR NOM, VILLE, DATE : STRING 15; 
PRENOM : STRING [ 12 ] ; 
RUE: STRING [ 20 ] ; 
NUMR, NU?, Q, N, PROP: INTEGER; 
PV, PHT, THT, TAXE, TTC, TAUX: REAL; 
RES : TEXT; 

Begin REWRITE (RES, 'PRINTER : '); 

WRITE ('NOM, PRENOM, numero, rue ville du client:'); 
READLN (NOM) ; READLN (PRENOM); READLN (NUMP); 
READLN (RUE); READLN (VILLE); 
WRITE ('DATE:') ; READLN (DATE); 
WRITE ('Nombre d'articles commandes:'); 

{ hjM\ ^JUI jjl*. } 
READLN (N); 
WRITELN (RES); 

WRITELN (RES, »commande du', DATE); 
WRITELN (RES); 
WRITELN (RES, 'Numero duproduit': 15, 'guantile': 10. 

'PRIX UNIT': 10, 'PRIX HT': 10); 
THT: = 0; 

FOR PROD: = 1 TON DO 
BEGIN 

WRITE ('Numero de produit, quantite et prix unitaire:"); 
READLN (NUP, Q, PU); 
PHT: =QxPU; 
WRITELN (RES, NUP: 15, Q: 10, PU: 10: Z, PHT: 10: 2); 
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THT : = THT + PHT 

END: 

TAXE: = THT + TAUX; 

TTC : = THT + TAXE; 

WRITELN (RES); WRITELN (RES. TOTAL hors taxc: '. THT 

10: 2); 

WRITELN (RES. T.V.A': tax: 10: 2); 
WRITELN (RES, TOTAL TTC: \ TTC : 10: 2); 

CLOSE (RES. TOCK) 
END. 

; <*jlkll .^t- rutull itSJ 7""->~i p*kjJl l-i* 

RES : TEXT; 

RWRITE (RES, »>PRINTER:'); 

oU-Jl ja JjJL>- J ti^Jl _ 10.4 

: ilL-. 

jU«^l J v_JLk JSJ io'Ljl i^Jl Jf- vi^xJL «*— j ^JUl a^*U^Jl v_j5l 

STUDENT-^ gJbJlj v^^AkJl o« u_^Ld) ^j,jl»- Li^ j^ jl v_^ 

: JLJI JSLiJl Jp JISL.L iil -up ^j-oJI pi-. JjJbU II* t NOTE 
STUDENT : array [ 1..N ] of packed array [ 1 ..N ] of char; 
NOTE : array [ 1..N ] of integer; 

STUDENT NOTE : 4^' J^ 1 



'AHMED' 




1 

X 




12 




N 
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1) program Research (input, output); 



Const N = ?; L = ?; 
end = 'end'; 



{ *~M* J* ^'0* vi^Jl } 



Type chain = packed array [ 1..N ] of char; 
Var STUDENT : array [ 1..N ] of chain; 

NOTE : array [ 1..N ] of integer; 

Nom : chain 



begin 

1- initialisation of student and note arrays 

2- repeat 

3- name request 

4- comput the index x into NOT array 

5- write NOT [ X ] 
end. 



. ^/^UJl jjlp JjU,, : N _ 
. r -">U^VlJ>Jl : L_ 
: «Jt)l JJUI Jp £.l^J| ^ ^ |j&* 

. ^Sldlj L-J^UJl JjlJb- jljLpI _ 

(t-^J v_wLll STUDENT J_,ai-I J X ^jl'l ^^1 _ 
. NOTE [ X 1 i>^uJl e^l _ 

L J * - .ft 

'END'^Vl ^IIjlpU- 
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. (NOTE) ^i^Jbj (STUDENT) U$M\ 4-J Jj 1 -^ jl -^i - 2 

procedure intialization 
Varline: integer; 
begin 

for line :1 TON do 

read NOTE [ line ] and STUDENT [ line ] , GOTO 
next line 
end; 
Jl ^jbil j i STUDENT [ line ] ^JUaUj NOTE [ line ] i^d\ '\J\ i: jX\-3 

: JLJI J£JJ! Jp jM\ II* ^ i t JUI >JI 
(read NOTE [ line ] and STUDENT [ line ] , goto next line) 

: JUI J£JI Jp ^< j-Ml 1ja 
read (NOTE [ line ] ); 
read STUDENT [ line ] 
READ LN 

d\ J i iULJ j^ «LJL- i.lji Jl ^j>. i STUDENT [ line ] \j\ » : yVl -4 

: JtJl J£dJl Jp j-V- read nom [ line ] ^sr^ 

procedure read chain (Var C: chain); 

vari, j : integer; 
begin 

i: = 0; 
while not eoln do begin i : = i + 1; 
read (C [ i ] ) end; 
forj : = i + lToLdo 

C[J]: = ' '; 
readln 
end; 
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^r^Jl Jp Jj-waJ-L JjHr-' While.. ik-lj, ^jC repeat ... exclut : ^Vl _5 

(name request) «—Vl ■ Lt»l _ 

: r^j^ 

While nom < > 'end' do begin 

: p-Vl liA v-Ull i^Jl ^ c^ij t ,|^Vl Jjjb- J X ^1 ^.y , ^| _ 

. NOTE [ X ] 
. p-Vl UL^I _ 

i > j -^ Ti S= Tj 

^Ij^^p ilrdl J L*. CJS L^ t «JUl i - 1 ^b*U i_Jb SjSUll ^ Lub lij _ 

. J.&JL Sj jy L. iLJUl j^J JULj 

: ^ 

Ti = 4 9 2 3 

i=l 2 9 4 3 

094 2 3 

i=2 4 9 2 3 

2 9 4 3 
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i= 3 4 9 3 

3 9 4 
i = 4 4T 



2 3 4 9 : sjj^iii UJUI 
program (input, output); 
{ Jljdl JiUU jjil\ } 

const n = 5; { Ujji v-jJJall ^LjJI jJLp } 

VarT : array [ l..n ] of integer; { Ujy ^—.jJJall iLJLJl } 

i,j, k, 1:1 ..n; 

aux : integer 
begin 

{ Jj^l LjJU, iLJLJl u\J } 
for k : = 1 to n do 

read(T[K]); 
T[i]^lljT[i..n]{ iLJUl J ^>-J.I >^Vl jJbJl ,»wi : i tiU-l } 
for i : = 1 To n - 1 do 

T [ i + 1 .. n ] aLUl ja s*s- J£» T [ i ] ^^jJI Ojl* : J ttU-l } 
for J : = i + 1 to n do 
ifT[i]>T[ J] then begin 



{ JiLdl ilJU } 



aux : = T [ i ] ; 
T[i]: = T[J]; 
T [ J ] : = aux 
end; 

for L : = 1 To n do write (' *, T [ L ] ); 

writeln 

end. 
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11.6 

pjl>l ^sS\ . i^lp njj^mjf. tfjjfi. ^JJ| A(m, n) J_,jJ-I ^J>j±S 

. j Sju*-VL i ^k-.Vl JjJUj £«_-j ^JJI 

U*~ ^ 01 v* • J>-JI ^ i>~Jl >l£J J-LDl JiOdl .1^1 c .h-.,„j V 
Ull* . j>Jl ■^^-Lll^uJl^i^Jl -^^^ J^^l Jfc, JS^, Jijull 
* A(j, k)j A(i, k) LtjULl dj*-J» 4 n, I ^ k j, ^iJl ^j 4 Jjju- J| ^ 
Jul* -y SO>-lj jj— i« ji>xXj £— j" i^U 4JI-^I 4^*- Jo-O-J jl ^_^ JiJJb * UUJ 

X*-A(i, k) 

A(i,k)*-A(j,k) 

A(j,k)«-X 

Var I, J, K, M, N : INTEGER; 
" X:REAL; 
array A (30, 20) : real; 
read M, N 
read A 
read I, J 
For K from 1 TON repeat 

X^A(I,K) 

A(I,K)*-A(J,K) 

AJ,K)<^X 
Write A 

a, )+ i ... a.i, o^LUil ~*L~,\y jJUilj 4 n i>-jjJl j* p(x) jjii-l jJ^o ,^>uJ 4 
P(x) = aix n + a:x" l + ...+x„-i = a2 - ai 
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(P(x..)) J-SLid (monome) anx") oloUVl J!>dl Jp *^jJU _ l 

: oj Ji^^J of l^plku-L . 2 
P(x«) = ((( ... (ai xu + a:) x» + a.i) x« + a4 ) ....) xh + a n +i 

. ( J> jy» Jalait ) 
: &>-*M.\ »JL* JLjCL-L P(xn) ■_ ^ -Jj 

s J * ^ 

•J-J^T^ C~J Bh SjJaiu C Jl b-j* SjJcilx J V-Jl; P(X) ^1 JjJL>- J_LtdU _ 3 

. ( c - b *— li 

lij ^^ COEF (j) . jjJLLI jlo o^LUJ 0i >d COEF J_,oJL| J»x^J 

. P(a„ .02 j + 1) j n- j+ 1 i*, jj| ^ i^Vl J.lJ Jp 

JjVl JI>JI _ t 
. xu J iJbdl gyb\ l_^->«j of *— £ 
"lc— ^ J**i-^- . xii _. (xn) j ^^ dlJij t (x«) j JtA>- ^ (x(i) j -' Jp J^J 



. xn uj ^3*0 : xu _ 
• jj^ *•*>** &%A** jjJ>o ^»— j JjJL>- : COEF _ 

. jjj^r^ jJxu h*j} : N _ 
P(x«) i*jjlj t (unx 11 ) oloU-^U VjJL| oU^^I 4*J ^j^J : P_ 

. jljScll jIjp : j _ 
. J ( ^\ ) iJbll ^1 ■_,, -^J : PUIS , 



Xn. 



. jS\ ibuL COEF J, jJLl -^ Cr-c J| v^jft t ^jtf ^ j 



Var J, N : INTEGER ; Xn, P, PUIS: REAL; 

Tab COEF (20): REAL; 
read N, Xn 
read COEF 

P*-0 
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PUIS <- 1 ((x 1 ) x.» «gx 1 J iJLdl &yl\ it stA ) 
for J from N + 1 TO 1 by step - 1 repeat 
P^(PUIS#COEF(J) + p 

PUIS <- PUIS * x«. ( X<» J iJUl ijj}\ oL~^ ) 
write P 

: JUJI ! JIJ-JI . c-. 
i LgJ* J-*o»J ^Jl Sj~>-Vl *_»J»JI ,^*.p(xo) A*JiJI . pi = pi-i xn + as : JL=Jl 

Var J, N : INTEGER ; », p: REAL ; tab COEF (20): REAL 

read N, x« 

read COEF 

F^-COEF(l) (a.JIPilJ^I) 

for y from 2 TO N + repeat 

P*-P#x.. + COEF(J) 

write P 

^ : i*;1 — Jl Jm i r J J ^i\ OLL* Jiij£ Jil JajC-J Ai^kJl oJlA jl Jb-^U 

. jL^VL .!>■>- V UL* ^ ^Vl oUi»*ll so- . ,juj£ £jj UU* 

jf ) x J i pij i»^3l t i ^j ^l J j ji^. .j^ 4 VAL JjJti-l J.,.o^^ 

. [ a, b ] i>w iJl -^ ( xi 

. i jvij ^3^1f J p(x) i^ULl JuJiJl ji^i £a—~m TP Jj-U-I 

J*Vl JjVl i*-iil ...x = a + 2h t x = a + h t x = a J p(x) ^iJl ^_>«i 
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i -Jii\ » JLa ,*~»JL p(x) uL~P- jj& . x = b _j U>Ijl^.| »!-->. . M h Ji}\ oJL* ,y>b -ja 
iu-il! c-iL Jii x jl iiyl. ijWW *bf*A\ J^jcl-J . p(b) jL-«?- jl*j jl^ScJl t-iSjjj 

. b 

: f jjl>l W 

jj-l>-l JJjCji O^Uca eel J _ 

. h JjJoi-1 Stl^i . b JtljS . a 5*1 i _ 
. 1 i^S)l ojlkclj j jk-Vl al Jk* al JLpI _ 

. s/lJUl ^ V Ui-i J ^wiU jiVl'aJ-l ^ _ 
. FALSE i*jj| UjUa^jj Ukll ijidLI jIopI _ 

v>cJ!5lilj i (true)* £Li>- i^Ukll^JLl «j^c-. lili v Ss b cJlS" lil /jS_ 

. V J| b ia-jjjl.ja*; b 

. p(v) oL->- 

. TP JjjJLl j, j ^jtjll J iUU-l *?wJl ^j 

. VAL JjOJLl ^ j ^kJl J V ^ 

. ( V J [^J,j ) i>« — iJl j, iJUl i^ill Jl jjjll 

«true» J ibU* ijikll iJj>d.l ™.^ jl- 

VAL^l 
■ TP V^l 
J ■"■'■■-•»■■ b» ) UAJl J^kJl ^ •«-! J„,.,- W J jl L^lkx-L p(x) jL-J- 

oi i|f i [ a, b ] <^Jii\ J JSVl J* i»J 30 Jd-l UL ^^ 



h> 



(b-a) 



30 

Var J, N, K ; INTEGER ; A, B, H, P : REAL ;STOP : BOOLEAN; tabCOEF 
(20), VAL (30), TP(30) : REAL; 

readN 
read COEF 
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read A, B 
read H 
J*-l 
V«-A 

STOP «- FALSE 

repeat if V 3= B then STOP <- TRUE 
ifV>BthenV«-B 

( V J i«— JL JjJJrl ^JjCj> i»J jL— s- ) I 

PP<-COEFd) 

for K from 1 TON repeat 

PP <- PP * V + COEF (K + 1) 

VAL (j) «- PP * V + COEF (K + 1) 

if STOP = FALSE then V <- V + H 

J«-J + 1 
UNTIL STOP = TRUE 
for k from 1 to j repeat 
write VAL (K) , TP (k) 

: Ha*-'** 
Lui ISJ •j-SJ, . ( _ J J** j,ju <ASj jJLjj t Vj PP oVj^ii JUjc^-J 
OL-J- JLidl x* cJ^Jl <y IjjU j-^J t yil^Vl £-sr J VAL (J)j P(j) _, ^Iju^-L 
+ 1 - JjJlA-I ~*A Jj ol>* = Jj-jJr I j^ j *5j ^v»'-«ll o\j^e ) o^« JS J i^LLl ,jijU*Jl 

. ( j^auJl oUK :>0p * (j) 

(graphe) jLJl (i—jJl '. *Jl—« 
^IjiVlj t j*aaJI -^ N i5jL-j -Up aL.-Ij^ Ji*jj t 4*-^ jLj ^j o^-r^ 

(k, j) JS j^ t/i^xj k ~J&\ o>JV *-Aiy6 Uxplku-L t *-*iJl ^ i*i J£J 

. j ifciiJ iJLLJl ^.ft.a.ll i>*jM ,-P-Aj 
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SjUpyi. (j, k) JS j\ c-»« . k ~*il\ v_iyu of ^s i j ifti JSJ* t t^l ( _ r iJ 
^a: ^J!AJ! . Ja . ( ^^1 lj> ^ k, jjjll ^ j ) jUl ^1 -^ ^y j* 

. j i»iD Ib-tAJl ,**i)! S^ 

: JUl JSLill J* jj&j t -jiJUu, y. Jj -U-l IJLa t ANT ^ ju 
. j 4*5JJ iiiLJl jt^iJl i>JM ■«>! t j jkJl J* _ 

: J* J^a»*i~. . iiLJl »Aill ^yt K j ji*j «^»i j a*«JI oJU ISj _ 
ANT(j,k+l) = 

p-ilJ i-^JL ANT JjJbi-l JjSLi; iLja ^ <^^~ dikj «. PUI ^Jb iJ 

. iLLJl 

JsUJlJakfc 
. U. iLLJl ^1 Wtf lj* i<J J£J _ 

: iJ J£)_ 
Jp dUij SUI Jjj^l J i>j^Ul .JL* jijiij t ii^Ui ^| i^ ^ vi^j 

. i_^ihl.l U...1I 

: i*5 jsa_ 

. ii^'jUl ^i wy v^ 

Var J, K, N : array ANT (100, 200) ; integer; 

array SUI (100, 20): integer; 
readN 
ForJ = l TON repeat 
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repeat k «— k + 1 
read ANT (J, K) 
untilANT(J,K) = 
for j = 1 TO N repeat 

j ^kJl J* SUI JjJi-l J lfO>o pij j i*iU £b-!*ll ~**}\ -y- vl^J 
for j = 1 TO N repeat 
k«-l 
while SUI (J, K) = repeat write SUI (j , k) 

k«-k + 1 
GOTO new line 
end. 

: Has-'** 
iAyi\ Xs> «repeat .. until» fj> j* i^j^M\ ju ^jii\ J| jwJ of -jSUil -^ 

■ Hj 9 " - "'^ -*' <;USDl Xp while f-jJ -j* **^-'j 

2 pi j t5>UU JM 
tLiiLj i i«** i«i JtA^ j^j (. fji i (procedure) ^\yr[ tlwlj *Lo a^& 

. ^jpJi] IJla j^ly. EXTERN jl J>JJ& . ibOUl p^SJI S»JM 

: sUull oljJdll - 

. i<J JS^ iLLJl p-jJl J,Jbr- : ANT_ 

. ANT JjjJLi ^ jL^^ll iap : N _ 

. U> ioOUl jv-JiJl ■>* ^^J jJl i*«Jl ^ : X _ 

. X i*iU £w-*Jl j^iJl h>Si : LIST. 

Jl X ( _ y ^o jl ^yi^i iadij t_ji t X ^S^f ^-j^ <-Jjl=» ^/> Y i»iJl OjS^ ^ 

. Y J iLLJl ^1 Wil 

.X cJL5 lil jL^L; p^t- c X i*iU «^*>Ul ^JJI i>o'V •LUJ* ^ ^J 
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. X iaU «s>.}Ul f*Ji)l i»JV Jl K . «,.,*; 

procedure EXTREM (ANT, N, X, LISTE) 
parameters : N, X : entier; 

array ANT (100, 20): integer; 
results : ARRAY LISTE (20) : integer; 

VarK.L: integer; 
L<-0 
•■ for K from 1 TO N repeat 

ifX6ANTthenL<-L+l 

LIST(L)«-k 
L«-L + l 
LISTE (L)«-0 
return 

: vUbJl tsji-ilj J-Udl 
i^Illj t EXTREM *l^l ^ J>-!jJl i CHERCHE .1^1 .lijl, ^u 

. X2 i*lU liUl »*ill Wil J •■>>>■>■ Xi i*SJl cJlS lil Lp vlo^. 

: ^ CHERCHE *I^VI olj 

: iL*-b kzj[j 

. JbUl j^JtJl JjJb- t ANT _ 

. X: J ajuU\ ^Jti\ a^'N J l^.c*J ^Jl **j»Jl i Xi _ 

4 X2- 

.C-J15 ISJ true i*-3J! Jp ,^y>a^- il_p*dl o\y> i ,>&'■■« * ,^ -yi IjJcj> : VERIF_ 
. ^^Vl aJU-I J FALSEj i X: UAi iiUl r J6\ i*JV J Sa^, Xi 

'» — ajj^cJl Ul£»li (. »lJ ^^—j j«cx Ml jU N procedure *I^-Vl o\ L£j 

. SJI Jl ^* 
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fonction CHERCHE (ANT, Xi, Xj) : BOOLEAN; 
• data Parameters: xi, X2 : integer Tab ANT (100, 20) : integer 
varJ : integer 

while ANT (X2, j) = and ANT (X2, j) = Xi repeat 

j«-j + l 
if ANT (Xz, j) = Xi then CHERCHE «- TRUE 

else CHERCHE <~ FALSE 
return 

. CHERCHE iJljJl ^aLj ^JJl EXTREM ^Vl *AX jVl UI&.U 
procedure EXTREM (ANT, N, X, USTE) 
data parameters : N, X: integer; ARRAY ANT (100, 20): integer; 
result parameters : ARRAY LISTE (20) : integer; 
VarK, L: integer 
L<-0 
for K from 1 TO N repeat 

if CHERCHE (X, K) = TRUE then L *- L + L 
LISTE (L)<-K 
'l*-L + l 
LISTE (L)«-0 
return 

j UiU a*OUI ^1 fcj*y ^y^i ( vector 4^, j j^ij j^ SV JjjJLl J vn - 1BL ; 
. SUI JjO*U j >J| J vjj, Liuf y> JjjJ.\ I ju t EXTREM .1^1 i^ x* 

. j + 1 Udi ii^i\ j^ilJ JUxu-^U JjU fej^i 

: ^-u-Vi gasji 

Var Y, K, N, ARRAY SU (20), ANT (100, 20), SUI (100, 20) : integer; 
readN 
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for J from 1 TO N repeat 
K<-0 

repeat K <- K + 1 
read ANT (J, K) 
unti!ANT(J,K) = 
forj = 1 TON repeat 
call EXTREM (ANT, N, J, SU) 
K«-0 
repeat k «- k + 1 

SUI(J,K)*-SU(K) 
until SU (k) = 
to j from 1 TO N repeat 

while SUJ (j, k) = repeat 
write SUI (j, k) 
k*-k + l 

end. 

i oUlj^Vl <k»l£ :pL. U^L. ^ SVj ANT oVj^J.1 jl ^1/iVl ^JLI 

J£J ojj t 100 ^jLo jf Jily> jLJl ^-^Jl uiJj; jJl ^1 jju- jl \^J>ji\ JiJ _ 

. ^Vl J* iib-V i»j 20j <ijL. i<J 20 i<J 
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i2U 



-u^ij Xp JULI a*iuj . j*JJ v-Ul «i>Jl jU^I jj^ ^ aLU ^^ 

i/iiJi ^ i^L of jLii j* ^ ^ t ^.^i jLid ^vi isui ^^Jbj 

4 015UVI jjj J^Jdl ^| ^j£ jj^ ^ (h \jj^ Wj j^ .jl^ 

r*^ 4>^-j Wl ^A 1 ' ^.j—" ^ ^Uij oUa« j^^j j^suli cui y ^^ji 

jlU J aM_, ttJJl ^UJ| ^ ^Ujji j iUi oU«ll v^ji + f.jjiy. : jtli 

*bj 4 oUjjI^iLl .mi ^j ^ ^JL.Li 4>JL .IL*1 L^-y V USJ| |Ju J_, 
■Ji ^ i& JlSL-b fe] Lu»l ^ . iU^JLl g.ijJi Jp J^^JJ "oLkJLl 



i£ 
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c?^ 



— Algorithmique. construction preuve et evaluation des programmes, 
par Pierre BERLIOUX, PHILIPPE BIZARD DUNOD 1983 - PARIS. 

— Cours dalgorithmique. PAR DR. ABOUL HASSAN HUSSEINI. 
univ. de libanaise, fac. de genie - 3- BYROUTH. 

— Exercises commentes d'analyse et de programmation par : J- P LAURENT, 
J. AYEL DUNOD 1986 PARIS. 

— Initiation a l'algorithmique et aux structures de donnees. programmation 
structuree et structures du donnees par : J. COURTIN, I. KOWARSK; 
DUNOD 1987- PARIS. 

— Programmation TOM 1, 2. du probleme a l'algorithme et de Faigorithme au 
programme 
Amed6eDUCRIN 
DUNOD 1985 . PARIS. 

— FORTRAN structure et methodes numeriques. 
S. FAROULT, D. SIMON 

DUNOD. 1986- PARIS. 

— Raisonner pour programmer. 
Anna GRAM. 

DUNOD -1986 PARIS. 

— Initiation a d' Algorithmique 
C. et P. Ricfiard 
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edition BELIN 1986 PARIS. 

— DATA structure 

from algorithme to program 

N- WIRTH 1978 MACGRAWHILL 

— WIRTH. N. PROGRAMING language pascal 1971. 

— systematic programing - An introduction 
prentice Hall 1973 

N- WIRTH 

— Algorithm + data structure .004 programs 
N- WIRTH. 

prentice Hall 1976. 

— IBM 300/370 PASCAL 8000 for OS/ VS 

University of TOKYO. Rewriten for australian energy commission 1978. 

— KRUCHTENP. 

Langage de programmation pascal, ey rolles 1979. 

— pascal par l'exemple 
J.A. FERNANDEZ 
Eyrolles 1980. 

— Introduction au pascal 
BEUX. P 

SYBEX 1980. 
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Jit 



5 AjtMjt 

9 oL.jjl>-l : JjVl J-^iJl 

21 i5j!jb^l_9 ^OpUJI JJb^Jl : jlsJI J^ill 

25 .gSl=Jl IkS i ^UJI t ^Vl i ik-Jl £-^l>l : ilJlill J*mJI 

39 u *g*ld\ » oV^dl i jljSoJl : gljll J**UI 

49 jL^I : ^wliLl J^iJl 

55 . Jj| -Jl-I : ^Ul J^aiJl 

73 oUl^rMl : £UI J^Ail 

81 oLUll *L : -^liil J^iJl 

107 „ . . }jii\j d-»Jl oL*jjlj^ : £-kJl J-iiJl 

119 o^U-Jl : ^iWl J^iJI 

131 oli-k: : ^Jt* ^U-l J-^iJl 

156 «U 
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